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

Question

Информатика

Лана

23 февраля, 23:25

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

+4

Ответы (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.