Pascal ABC найти количество пар соседних элементов массива, в которых предыдущий элемент меньше последующего
Pascal ABC найти количество пар соседних элементов массива, в которых предыдущий элемент меньше последующего
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var a:array [1..100] of byte;a, k,i,n:byte;
begin
read(i); a:=0;
for k:=1 to i do begin
read(n);
a[k]:=n;
end;
for k:=1 to i-1 do
if a[k]
Не нашли ответ?
Похожие вопросы