составьте алгоритм нахождения наименьшего из трех значений в паскаль
program p1;vara1, a2, a3, max: integer;BEGINwriteln ('Vvedite 3 chisla cherez probel i nazhmite probel');readln (a1, a2, a3);
if a1>=a2 thenmax:=a1elsemax:=a2;if a3>max thenmax:=a3;
Writeln('Maximalnoe chislo iz nih:', max);readlnEND.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program p1;
var
a1, a2, a3, max: integer;
BEGIN
writeln ('Vvedite 3 chisla cherez probel i nazhmite probel');
readln (a1, a2, a3);
if a1>=a2 then
max:=a1
else
max:=a2;
if a3>max then
max:=a3;
Writeln('Maximalnoe chislo iz nih:', max);
readln
END.