Вместо цикла For использовать цикл While так, само задание состоит в том, чтобы ввести n различных чисел найти количество положительных чисел и написать математическую модель

Var a, n, i, k:integer;

Begin

Readln (n);

k:=0;

For i:=1 to N do

Begin

readln (a);

if a>0 then k:=k+1;

end;

Writeln (k);

End.

Question

Информатика

Катяха

20 мая, 09:00

Вместо цикла For использовать цикл While так, само задание состоит в том, чтобы ввести n различных чисел найти количество положительных чисел и написать математическую модель

Var a, n, i, k:integer;

Begin

Readln (n);

k:=0;

For i:=1 to N do

Begin

readln (a);

if a>0 then k:=k+1;

end;

Writeln (k);

End.

+2

Ответы (1)

Знаешь ответ?

Бориска · Answer 1

Var

a, n, i, k:integer;

Begin

Readln (n);

k:=0;

i:=0;

while i
Begin

readln (a);

if a>0

then k:=k+1;

i:=i+1;

end;

Writeln (k);

End.

Если не будет хватать одного выполнения то напишешь "while i