Реализовать программу, выполняющую подсчет максимального количества подряд идущих элементов в целочисленном массиве длины 50. программы выполняет

Question

Информатика: Реализовать программу, выполняющую подсчет максимального количества подряд идущих элементов в целочисленном массиве длины 50. программы выполняет вывод максимальной длины цепочки подряд идущих элементов

ChelovekNosok · Answer

programm z1;var k,max:integer;a:array [1..30] of real;begink:=0; {счетчик}max:=0;for i:=1 to 29 do beginreadln (a[i]);if a[i+1] a[i]thenk:=k+1 elseif max k then beginmax:=k;k:=0;end;end;writeln (max);end....

Популярные вопросы