Помогите решить задачу по ИВТ на языке паскаль.
Ввести пять чисел и найти наибольшее из них
Ввести пять чисел и найти наибольшее из них
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a1,a2,a3,a4,a5,ab1,ab2,ab3,max1:integer;
begin
writeln('Введите 5 чисел');
readln(a1,a2,a3,a4,a5);
ab1:=max(a1,a2);
ab2:=max(a3,a4);
ab3:=max(ab1,ab2);
max1:=max(ab3,a5);
writeln(max1);
end.