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

Program krab52;
uses crt;
const
n=10;
var
a:array [1..n] of integer;
i,max,min:integer;
begin
writeln(*** alphaues is thinking... ***);
writeln(***          OK             ***);
writeln();
randomize;
{заполняем массив}
for i:=1 to n do
    begin
      a[i]:=random(101);
      write (a[i]:4);
    end;
writeln();
{ищем макс и мин}
max:=a[1];
min:=a[1];
for i:=2 to n do
    begin
      if a[i]      if a[i]>max then max:=a[i];
    end;
{выводим результат}
writeln();
writeln( Максимальный элемент ,max);
writeln( Минимальный элемент ,min);
writeln( Размах между максимальным и минимальным элементами ,max-min);
    end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Найти другие ответы