Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Напечатать те числа из массива, которые больше предыдущего числа. Так, если А = { 2, 4, –3, 0, 5, 7, 5}, результат: 4 (4 > 2) и 0 (0 > –3) и 5 (5 > 0) и 7 (7 > 5)
More Questions From This User See All
Answers & Comments
Также прикладываю текст программы в файле.
===PascalABC.Net===
program brainly;
var
arr: array [1..100] of integer;
size, i: integer;
begin
Write('Введите размер массива: ');
ReadLn(size);
Write('Введите числа в массиве: ');
for i := 1 to size do
Read(arr[i]);
Write('Результат: ');
for i := 2 to size do
if arr[i] > arr[i - 1] then
Write(arr[i]);
end.