Задача ** паскале Вычислить разность между наибольшим и наименьшим элементами заданного...

Question

Задача на паскале
Вычислить разность между наибольшим и наименьшим элементами заданного массива из N элементов.

(Пожалуйста, напишите решение полностью)

Answer 1

var A: array [1..100] of integer;

i,max,min,s: integer;

begin

randomize;

for i := 1 to 100 do begin

A[i] := random(100);

end;

max := 1;

for i := 2 to 100 do begin

if (A[i] > A[max]) then max := i;

end;

min := 1;

for i := 2 to 100 do begin

if (A[i] < A[min]) then min := i;

end;

s := A[max] - A[min];

writeln(s);

end.