Определить сумму и разность максимального и минимального элементов массива - Pascal ABC

Формулировка задачи:

Ввести целочисленный массив, состоящий из 15 элементов. Определить сумму и разность максимального и минимального элементов.

Код к задаче: «Определить сумму и разность максимального и минимального элементов массива - Pascal ABC»

textual
const
  n = 15;
var
  a : array [1..n] of integer;
  i, max, min : integer;
begin
  max := -maxint;
  min := maxint;
  {ввод и сразу поиск мин. и макс.}
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    if a[i] >= max then max := a[i];
    if a[i] <= min then min := a[i]
  end;
  {вывод}
  for i := 1 to n do
    write(a[i]:4);
  writeln;
  writeln('максимум = ', max, ', миниум = ', min);
  writeln('их сумма = ', max + min, ', разность = ', max - min)
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 4.286 из 5


СДЕЛАЙТЕ РЕПОСТ