Информатика / CYFRY

program cyfry;
uses crt;

var
a : array [1..20] of integer;
max : integer;
min : integer;
i : integer;
begin
clrscr;
writeln('cyfry');
for i:= 1 to 20 do
begin
a[i] := random(100);
write(a[i], ' ');
end;
writeln('');

max := a[1];
min := a[1];

for i:= 1 to 20 do
begin
if max < a[i] then max := a[i];
if min > a[i] then min := a[i];
end;

writeln('razniza', max - min);

readkey;

end.