Question

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

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

Answer 2

Блок-схема с использованием цикла Repeat:

┌───────────────┐
│ Ввод значения │
└──────┬────────┘
       │
       │
       v
┌───────────────┐
│ Присвоить k=0 │
└──────┬────────┘
       │
       │
       v
┌───────────────┐
│ Присвоить i=1 │
└──────┬────────┘
       │
       │
       v
┌───────────────┐
│ Прочитать a   │
└──────┬────────┘
       │
       │
       v
┌───────────────┐
│ Если a > 0    │
│  то k = k + 1 │
└──────┬────────┘
       │
       │
       v
┌───────────────┐
│ Увеличить i   │
└──────┬────────┘
       │
       │
       v
┌──────────────────────┐
│ Если i <= n, перейти │
│ к шагу "Прочитать a" │
└──────┬───────────────┘
       │
       │
       v
┌───────────────┐
│ Вывести k     │
└──────┬────────┘
       │
       │
       v
┌───────────────┐
│ Конец         │
└──────┬────────┘
       │
       │
       v

В данной блок-схеме сначала происходит ввод значения `n`, затем переменной `k` присваивается значение 0. Затем инициализируется переменная `i` со значением 1. Далее происходит чтение значения `a`. Если `a` больше 0, то значение `k` увеличивается на 1. После этого переменная `i` увеличивается на 1. Проверяется условие, если `i` меньше или равно `n`, то происходит переход к шагу "Прочитать a". Если `i` больше `n`, то выводится значение `k`. Затем программа завершается.