GAECHKA
Твоя помощница в решении задач

Массивы одномерные

Дан массив.Вычислить на сколько максимальный элемент больше минимального элемента
0
вопрос задан

Источник


1 ответ
Uses Crt;
const
n=10;
var
a: array [1..n]of integer;
i,mx,mn:integer;
begin
for i:=1 to n do begin
a[i]:=random(11);
write(a[i]:4); end;
writeln;
mx:=a[1];
for i:=2 to n do begin
if a[i]>mx then begin
mx:=a[i]; end; end;
writeln('max=',mx);
mn:=a[1];
for i:=2 to n do begin
if a[i]then begin
mn:=a[i]; end; end;
writeln('min=',mn);
writeln('raznisa=',mx-mn);
end.