Знатокам программирования! Переписать программу - вопрос №14827091 от redridinghood1 01.01.2023 06:21

Question

Информатика: Знатокам программирования! Переписать программу из паскаля в лазарус var n,i,a,max: integer; begin readln(n); max := -1; for i := 1 to n do begin readln(a); if (a mod 5 = 0) and (a max) then max := a; end; writeln(max) end.

redridinghood1 · Answer

Лазарус - это одно из множества IDE (программа, где можно писать код) для паскаля.

Выполнить его можете только Вы сами, после установки Lazarus :)

https://lazarus-rus.ru/download/

Знатокам программирования! Переписать программу из паскаля в лазарус var n,i,a,max: integer; begin readln(n); max := -1; for i := 1 to n do begin readln(a); if (a mod 5 = 0) and (a > max) then max := a; end; writeln(max) end.

Знатокам программирования! Переписать программу из паскаля в лазарус
var
n,i,a,max: integer;
begin
readln(n);
max := -1;
for i := 1 to n do
begin
readln(a);
if (a mod 5 = 0) and (a > max) then
max := a;
end;
writeln(max)
end.