Создать массив из 10 целых чисел принадлежащих промежутку - 50 до 50. посчитать сумму положительных и количество отрицательных элементов массива

Var

i, s, k:integer;

a:array[1 ... 10]of integer;

begin

for i:=1 to 10 do

begin

a[i]:=random (-50,50) ;

write (a[i],' ') ;

if a[i]>0 then s:=s+a[i];

if a[i]<0 then k:=k+1;

end;

writeln;

writeln ('Сумма положительных: ', s) ;

writeln ('Количество отрицательных: ', k) ;

end.

Выводит массив из рандомных 20 чисел между - 50 и 50 допустим0 1 - 2 1 2 3 5 4 5 8 9 10 14 - 14 8 - 11 10 45 6 1 Затем выводит макс. кол-во похожих 0 1 - 2 1 2 3 5 4 5 8 9 10 14 - 14 8 - 11 10 45 6 1 3 И теперь сумму четных элементов 0 1 - 2 1 2 3 5 4 5 8 9 10 14 - 14 8 - 11 10 45 6 1 1+1+3+4+8+10-14-11+45+1=48

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

i, j, k, l, s:integer;

begin

for i:=1 to 20 do begin

randomize;

a[i]:=random (101) - 50;

write (a[i],' ') ;

end;

k:=0;

l:=0;

for i:=1 to 20 do begin

if l k:=0;

for j:=1 to 20 do

if a[i]=a[j] then k:=k+1;

end;

Writeln;

writeln (l) ;

for i:=1 to 20 do

if i mod 2 = 0 then s:=s+a[i];

writeln (s) ;

end.