написать программу на языке Pascal, учитывая все условия задачи, но чтобы программу можно было заполнять как рандомно, так и в ручную+ графическое отображение отдельного окна, с использованием мыши и клавиатуры​

n = int(

lstr = (" ")

ns = []

i = 0

tot = 0

while i < n:

   ns.append(int(

   tot += int(lstr[i])

   i += 1

if tot % 5 == 0 and len(ns) > 4:

   sm = int(tot / 5)

   ns = sorted(ns, reverse=true)

   ps = "yes"

   su = 0

   sk = 0

   b = false

   for n in ns:

       if n ! = 0 and b:

           su == 0

           sk += 1

           b = false

           break

       if sk == 5:

           ps = "no"

           break

       su += n

       if abs(su) > abs(sm):

           ps = "no"

           break

       if su == sm:

           b = true

   print(ps)

else:

   print("no")

СДЕЛАЙ ОТВЕТ ЛУЧШИМ

Вроде оно

Объяснение:

#include "stdafx.h"

#include "stdio.h"

#include <time.h>

#include <stdlib.h>

class vector

{

private:

int* m;

int size;

public :

vector(int n = 0);

vector(const vector &vector2);

~vector();

};

vector::vector( int n )

{

if (n < 0) n = 0;

size = n;

m = new int[n];

if(!m)

printf("Error");

else

m = NULL;

}

vector::vector(const vector &vector2)

{

size = vector2.size;

m = new int [size];

for(int i = 0; i<size;i++)

m[i] = vector2.m[i];

printf("kopia stvorena !");

}

vector::~vector()

{

delete[] m;

}

vector(int *m, int size)

{

srand(time(NULL))

if(!m)

printf("error")

else

for(int i = 0; i < size; i++)

m[i] = rand()% 99;

}

int main()

{

vector v1(45),

system("pause");

return 0;

}