Составить блок-схему по готовому фрагменту программы.
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.
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.
More Questions From This User See All
Answers & Comments
Ответ:
Начало программы
Объявление переменных:
K, Max: real;
N: byte;
Инициализация переменных:
Max := 0;
N := 0;
Пока N <= 10 выполнять:
Вывести сообщение "Введите число"
Ввести значение для переменной K
Если K > Max, то:
Присвоить значение K переменной Max
Увеличить значение N на 1
Конец программы
Объяснение: