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]<min then min:=a[i];
for i:=1 to 20 doif a[i]>max then max:=a[i];
r:=max-min;
writeln;
writeln(r);
readln;
end.