Задана последовательность из 10 целых чисел. Для каждого элемента начиная со второго найти разницу с предыдущим элементом (ai - ai - 1)
Задана последовательность из 10 целых чисел. Для каждого элемента начиная со второго найти разницу с предыдущим элементом (ai - ai - 1)
Гость
Ответ(ы) на вопрос:
ГостьОтвет пишу в комментариях, использовал массив, так проще). На входе вводишь 10 чисел на выходе 5 разниц.
Если сделал что-то не так, пиши поправлю!
Гостьconst n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
writeln('Искомые разности:');
for i:=2 to n do write(a[i]-a[i-1]:4);
writeln;
end.
Пример:
3 43 32 33 18 29 21 48 33 28
Искомые разности:
40 -11 1 -15 11 -8 27 -15 -5
Не нашли ответ?
Похожие вопросы