Составить блок-схему по готовой программе. Program zadacha;
Var K, Min: real, N: integer;
Begin
Min:=0;
N:=0;
While N <= 5 do
Begin
Write ('Введите число');
Readln (K);
IF min>K THEN
Min:=K;
N:=N+1;
end.

kashlakova20031    1   14.05.2021 12:58    6