Решите две по информатике(паскаль) обработать последовательность из n чисел,которые пользователь введёт с клавиатуры.вычислить: количество отрицательных чисел минимальное число

Могу реализацию на питоне предложить, писать меньше, чем на c ++.

import random

a = []

count = 0

for i in range (20):

a.append(random.randint(1000)

for i in a:

if i % 2 == 0:

count += 1

print (count)

Примечания.

Там, где пробел между текстом и скобками, он не нужен (здесь просто без них написать не даёт). Так же нужно следить за отступами, чтобы компилятор не ругался. Если рандомный список вы всё-таки решите считывать, то меняете в первом цикле после append(int(input()).

Randint даёт рандомное число на указанном промежутке, если нужен промежуток больше, просто меняйте цифру в скобках. Count - счётчик.

program GradesFinder;

var

 grades: array[Integer] of Integer;

 gradesCounter: array[3..5] of Integer = (0,0,0);

 gradesSum: Integer = 0;

 mostCommonGradeCounter: Integer = 0;

 mostCommonGrade: Integer = 0;

 i: Integer;

begin

 Randomize;

 writeln('Оценки учеников:');

 for i:=0 to 19 do

 begin

   grades[i] := 3 + Random(3);

   writeln(i+1,': ',grades[i]);

   gradesCounter[grades[i]] := gradesCounter[grades[i]] + 1;

   gradesSum := gradesSum + grades[i]

 end;

 writeln('Число отметок 5: ', gradesCounter[5]);

 writeln('Средний бал: ', gradesSum/20:2:1);

 write('Болше всего получено: ');

 for i := 3 to 5 do

   if mostCommonGradeCounter < gradesCounter[i] then

   begin

     mostCommonGrade := i;

     mostCommonGradeCounter := gradesCounter[i];

   end;

 writeln(mostCommonGrade);

end.

Объяснение: