Дано 4 числа (без разницы x,y,z,q),составить блок схему для нахождения минимального числа при условии,что все числа неравны.
Answers & Comments
TheZeusist
Program abc; var x,min,i:integer; begin min:=30000; for i:=1 to 4 do begin writeln('Ввежите число'); readln(x); if x<min then min:=x; end; writeln(min); end.
Answers & Comments
var x,min,i:integer;
begin
min:=30000;
for i:=1 to 4 do
begin
writeln('Ввежите число');
readln(x);
if x<min then min:=x;
end;
writeln(min);
end.