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

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

Информатика

Фрося

8 июня, 23:12

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

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.

+3

Ответы (1)

Знаете ответ на вопрос?

Сергуня · Answer 1

Блок-схема - в прилагаемом файле.

Var a, n, i, k:integer;

Begin

Readln (n) ;

k:=0;

i:=0;

repeat

i:=i+1;

readln (a) ;

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

until i=n;

Writeln (k) ;

End.

Пример:

5

53

-78

67

-12

40

3