ПОЖАЙЛУСТА
Введите в компьютер программу . а) Выполните ее, получите результаты. Сравните с результатами, приведенными в параграфе.б) Внесите изменения в программу для того, чтобы получить спи-сок в обратном порядке (по возрастанию очков). Выполните про-грамму.в) Возможно, что массив окажется отсортированным до завершения всех проходов. В таком случае число повторений внешнего цик-ла можно сократить, и программа будет выполняться быстрее. Попробуйте усовершенствовать приведенную программу с учетом этого факта. Проверьте результат на теста

var

 a: array[1..20, 1..20] of integer;

 n, m, i, j, jm: integer;

begin

 randomize;

 writeln('Введите количество строк и столбцов соответственно: ');

 readln(n, m);

 writeln('Сгенерированная матрица: ');

 for i := 1 to n do

 begin

   jm := 1;

   for j := 1 to m do

   begin

     a[i, j] := random(99);

     write(a[i, j]:4);

     if (i mod 2 = 0) and (a[i, jm] > a[i, j])

       then jm := j;

   end;

   if i mod 2 = 0 then write('  min=a[', i, ',', jm, ']=', a[i, jm]);

   writeln;

 end;

 readln;

end.

Program P1;
var
a: array [1..50] of integer; {Переменная а - одномерный массив в 50 элементов};
S, I : integer; {Переменная S - сумма элементов, I - счетчик цикла} 
begin
randomize; {включаем генератор случайных чисел};
S:=0;   {Обнуляем значение суммы}
for I:=1 to 50 do   {цикл в 50 повторений}
begin
a[i]:=random(201) - 100; {формируем 50 элементов массива случайным образом в интервале [-100;100]}
S:=S+a[i];   {Добавляем каждый элемент к значению суммы}
end;
wrilteln('Сумма всех элементов ', S); {выводим значение суммы}
end;