Переведите на , var k, n, a, amax: integer;
begin
amax:=0;
readln(n);
for k:=1 to n do
begin
readln(a);
if (a mod 5 = 0) and (a>amax) then
amax:=a;
end;
writeln(amax);
end.
112
231
Ответы на вопрос:
Типы данных в Pascal
integer -- целые числа. real -- вещественные числа. boolean -- логический тип данных (значения типа да/нет, истина/лож). char -- символьный тип.3 дек. 2016 г.
Популярно: Информатика
-
vovalomov0008.07.2022 07:45
-
debiltrue12.10.2022 09:35
-
tatanavolosnova105.12.2020 11:46
-
мугамбе01.10.2020 07:13
-
Aliy25124.01.2020 04:25
-
Фуфик037228.07.2021 07:29
-
lovivirus123414.11.2020 00:34
-
tmika7833216729.11.2020 15:50
-
irina19750507.02.2020 01:02
-
Artem57418914.10.2021 06:53