Дан массив,состоящий из 20-ти целых чисел.Выяснить,** сколько максимальный элемент...

Question

Дан массив,состоящий из 20-ти целых чисел.Выяснить,на сколько максимальный элемент превосходит минимальный :3
помогите ,котаны:3
нужна программа в паскале

Answer 1

Var a:array [1..20] of integer; i,max,min,r:integer;
begin
max:=0; min:=24000;
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
if a[i]for i:=1 to 20 doif a[i]>max then max:=a[i];
r:=max-min;
writeln;
writeln(r);
readln;
end.