Question

ДАЮ 40 БАЛЛОВ!!!!
Составить блок-схему по готовому фрагменту программы.

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

Ответ:

заходи в ГД3 5 клаас выбираешь Тему и все удачкиииии