Феодул 26 ноября 2019 в 01:46
Напишите полностью программу в Turbo Pascal .Создать программу в Turbo Pascal..
Пользователь вводит n элементов массива. Требуется определить количество элементов, значение которых больше, чем у предыдущего элемента массива
Напишите полностью программу в Turbo Pascal .Создать программу в Turbo Pascal..
Пользователь вводит n элементов массива. Требуется определить количество элементов, значение которых больше, чем у предыдущего элемента массива
Var
a: array[1..100] of integer;
i, n, k: integer;
begin
readln(n);
readln(a[1]);
for i := 2 to n do
begin
readln(a[i]);
if (a[i - 1] lt; a[i]) then k := k + 1;
end;
writeln(k);
end.
a: array[1..100] of integer;
i, n, k: integer;
begin
readln(n);
readln(a[1]);
for i := 2 to n do
begin
readln(a[i]);
if (a[i - 1] lt; a[i]) then k := k + 1;
end;
writeln(k);
end.
Компьютеры и вычисления
325
0
Для комментирования необходимо зарегистрироваться на сайте