Question

Помогите пожалуйстаДано 5 целых чисел. Напиши программу нахождения наибольшего среди них.​

Answer 1

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.

Answer 2

Конечно, помогу! На каком языке программирования тебе нужна эта программа?