Ответы на вопрос:
var a,i,max: integer;
begin
max:=0;
for i:=1 to 7 do
begin
readln(a);
if (a>max) then max:=a;
end;
writeln(max);
end.
Популярно: Информатика
-
DV260813.10.2021 21:54
-
Wowan0712.04.2021 19:38
-
Subhinur20.09.2020 03:03
-
Kylie1518.09.2021 02:39
-
кадитагаев17.10.2022 03:02
-
047oksana04.02.2022 02:14
-
unna104.06.2020 15:10
-
LadnoOK12.11.2022 18:06
-
antochakakaka31.10.2022 17:52
-
angryhanry20.04.2022 09:13