Question

Помогите пожалуйста очень нужно!!!!!!!!умоляю в Паскале прошу это работа над ошибками

Answer 1

const m = 100;
var i,n,s,mx: integer;
    a: array[1..m] of integer;
begin
  write('размер массива: ');  readln(n);
  randomize;
  s:=0;  mx:= -12;
  writeln('исходный массив: ');
  for i:=1 to n do
  begin
    a[i]:=random(-11,34);
    write(a[i],' ');
    if (a[i]<0) and (a[i]>mx) then mx:=a[i];
    if ((a[i]>0) and (a[i] mod 2 = 1)) then s:=s+a[i]; 
  end;
  writeln;
  writeln('максимальный среди отрицательных: ',mx);
  writeln('сумма нечетных положительных: ',s);
end.

размер массива: 15
исходный массив: 
17 -10 17 0 5 2 26 9 27 8 21 19 18 5 21 
максимальный среди отрицательных: -10
сумма нечетных положительных: 141