Question

Составить блок-схему к данному коду 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

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

Answer 2

Блок-схема по ГОСТ 19.701-90 (ISO 5807-85). СХЕМЫ АЛГОРИТМОВ, ПРОГРАММ, ДАННЫХ И СИСТЕМ. Обозначения условные и правила выполнения.

Answer 3

Код на псевдокоде: ``` 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. ```

Блок-схема для данного кода:

+-----------------------+
|                       |
|  Ввод значения n      |
|  инициализация k = 0  |
|                       |
+--------+--------------+
         |
         v
+--------+--------------+
|                       |
|  Установить i = 1     |
|                       |
+--------+--------------+
         |
         v
+--------+--------------+    +-----------------+
|                       |    |                 |
|  Если i > n           +--->+   Вывести k     |
|                       |    |                 |
+--------+--------------+    +-----------------+
         |
         v
+--------+--------------+
|                       |
|  Ввод значения a      |
|                       |
+--------+--------------+
         |
         v
+--------+--------------+
|                       |
|  Если a > 0           |
|    + Увеличить k на 1 |
|                       |
+--------+--------------+
         |
         v
+--------+--------------+
|                       |
|  Увеличить i на 1     |
|                       |
+--------+--------------+
         |
         v

Пояснение к блок-схеме:

- Вводится число n. - Переменная k инициализируется значением 0. - Переменная i устанавливается в 1. - Проверяется условие, если i > n, то переходим к выводу значения k. - Вводится число a. - Проверяется условие, если a > 0, то увеличиваем k на 1. - Увеличиваем значение i на 1. - Возвращаемся к проверке условия для i > n.