Вместо цикла 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

Информатика

Каролина

21 марта, 16:24

Вместо цикла 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