помогите пожалуйста
Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.
Дано 5 целых чисел. Напиши программу нахождения наибольшего среди них.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a,i,_max: integer;
begin
readln(_max);
for i := 1 to 4 do
begin
readln(a);
if (a > _max) then
_max := a;
end;
writeln(_max);
end.