Размещено 2 года назад по предмету
Информатика
от ЭммаШульц
Дана программа. Определить результат выполнения.
program N02;
const A: array [1..6] of integer = (16,1,8,2,4,4);
var i,k: integer;
begin
k:=0;
for i:=2 to 6 do
if A[i-1]>=A[i] then k:=k+1;
write(k)
end.