Question

Составить блок-схему по готовому фрагменту программы.
Program cikl;
Var
K, Max: real;
N:byte;
Begin
Max:=0;
N:=0;
While N<=10 do
Begin
Write (‘Введите число’);
Readln (K);
IF Max Max:=K;
N:=N+1;
End;
End.

Answer 1

Ответ:

Начало программы

 Объявление переменных:

   K, Max: real;

   N: byte;

 Инициализация переменных:

   Max := 0;

   N := 0;

 Пока N <= 10 выполнять:

   Вывести сообщение "Введите число"

   Ввести значение для переменной K

   Если K > Max, то:

     Присвоить значение K переменной Max

   Увеличить значение N на 1

 Конец программы

Объяснение: