заполнить одномерный массив случайными числами из отрезка [0,100], состоящих из 10 элементов. Найдите размах между наибольшим и наименьшим значением массива

Question

Информатика

Северин

22 мая, 14:38

заполнить одномерный массив случайными числами из отрезка [0,100], состоящих из 10 элементов. Найдите размах между наибольшим и наименьшим значением массива

+3

Ответы (1)

Знаете ответ на вопрос?

Спартак · Answer 1

uses crt;

var

a:array[1 ... 10] of integer;

i, max, min:integer;

begin

max:=1; min:=100;

for i:=1 to 10 do

begin

a[i]:=random (101) ;

write (a[i]:4) ;

if a[i]>max then max:=a[i];

if a[i]
end;

writeln;

write ('max=', max,'; min=', min,'; razmah=', max-min) ;

end.