5 произвольных чисел найти и вывести разницу между соседними числами информатика.(Через...

Question

5 произвольных чисел найти и вывести разницу между соседними числами информатика.
(Через цикл repeat,until)

Answer 1

Const
  n = 5;

var
  m: array[1..n] of integer;
  i: integer;

begin
  Write('Введите через пробел пять целых чисел: ');
  i := 1;
  repeat
    Read(m[i]);
    i := i + 1
  until i > n;
  i := 2;
  repeat
    Writeln(m[i], '-', m[i - 1], '=', m[i] - m[i - 1]);
    i := i + 1
  until i > n
end.

Тестовое решение:

Введите через пробел пять целых чисел: 5 12 32 8 24
12-5=7
32-12=20
8-32=-24
24-8=16