Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

15 баллов! Дается последовательность из 5 чисел, выведите разницу между максимальным и минимальным элементами последовательности.
напишите программу в паскале. Любая последовательность чисел, решите, прошу(
Только чтоб на уровне 9 класса, без всяких там команд которые мы еще не изучали, сейчас проходим массивы, по этой теме задача

Ответ оставил Гость

// PascalABC.NET 3.0, сборка 1088
var
  a:array[1..5] of integer;
  i,min,max:integer;
begin
  Writeln(Введите через пробел 5 целых элементов массива);
  for i:=1 to 5 do Read(a[i]);
  max:=a[1]; min:=max;
  for i:=2 to 5 do
    if a[i]>max then max:=a[i]
    else
      if a[i]  Writeln(Разница max-min равна ,max-min)
end.