Допустим, массив уже задан, поэтому его ввод писать не буду. Kol - количество элементов массива
var
mas, mas_ob: array[0..999] of integer;
i, kol_null, sum, sum_nech, sum_ch, pp, i1, kol, max: integer;
begin
kol_null := 0;
sum := 0;
sum_nech := 0;
sum_ch := 0;
i1 := 0;
max := -10000;
for i := 0 to kol do
begin
if mas[i] <> 0 then kol_null += 1; //2
sum += mas[i]; //3
if mas[i] mod 2 <> 0 then sum_nech += mas[i];//4
if mas[i] mod 2 = 0 then sum_ch += mas[i]; //5
if mas[i] < 0 then mas[i] := abs(mas[i]); //6
if mas[i] mod 21 = 0 then mas[i] := 1; //7
if mas[i] > max then max := mas[i]; //11
end;
pp := mas[0];//8
mas[0] := mas[kol]; //8
mas[kol] := pp;//8
for i := kol downto 0 do //10
begin
mas_ob[i] := mas[i];
i1 += 1;
end;
writeln('Количество ненулевых элементов: ', kol_null);
writeln('Сумма всех элеметов: ', sum);
writeln('Сумма нечетных элеметов: ', sum_nech);
writeln('Сумма четных элеметов: ', sum_ch);
writeln('Максимальный элемент: ', max);
end.
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
min: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100);
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{минимум и максимум}
min := a[1];
for i := 1 to n do
begin
if (min > a[i]) and (i mod 2=1) then min := a[i];
end;
writeln('min = ', min);
end.