задача паскаль
random (50)
Найти:
массив [0..20]
сумма всех элементов
максимальный элемент
элемент=10

Спасибо!

const n=20;var a:array[1..n] of integer;max,s,k,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(50); write(a[i],' '); end;writeln;max:=a[1];  s:=0; k:=0;for i:=1 to n do begin if a[i]>max then max:=a[i];  s:=s+a[i]; if a[i]=10 then k:=i; end;writeln('max = ',max,'  s = ',s);if k>0 then writeln('Элемент = 10 имеет номер ',k) else writeln('В массиве нет элемента = 10');end.Пример:13 47 29 31 34 5 37 35 3 40 10 42 15 3 3 26 36 14 16 43 max = 47  s = 482Элемент = 10 имеет номер 11