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
uses crt; var n,m,i,j,k:integer; a:array[1..1000] of integer; begin repeat writeln('Введите 2 натуральнвх числа n<m<1000:'); read(n,m); until (n>0)and(n<m)and(m<1000); writeln('Начальный ряд:'); k:=0; for i:=n to m do begin inc(k); a[k]:=i; write(a[i]:4); end; writeln; while k>=2 do begin i:=1; while i<=k do begin for j:=i to k-1 do a[j]:=a[j+1]; k:=k-1; i:=i+1; end; i:=2; while i<=k do begin f or j:=i to k-1 do a[j]:=a[j+1]; k:=k-1; i:=i+1; end; end; write(a[k]); end.
begin writeln('Введите скорость катера (vk) и скорость течения реки (vt) в км/ч: '); read(vk,vt); writeln('Введите время (t) в часах: '); read(t); writeln('Катер за ',t,'ч. пройдет ',t*(vk+vt),' км'); end.
2.
var n,x: real;
begin writeln('Введите кол-во кактусов: '); read(x); writeln('Сколько кактусов было побрито? '); read(n); if (x - n) < x/2 then writeln('Гладких кактусов больше.'); if (x - n) = x/2 then writeln('Небритых и гладких поровну.'); if (x - n) > x/2 then writeln('Небритых кактусов больше.'); end.
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