Ответы на вопрос:
var
data: array[1..5] of integer;
i, t: byte;
begin
t : = 0;
for i : =1 to n do
readln(data[i]);
for i : =1 to n do
if t < data[i] then
begin t : = data[i]; end;
end;
writeln("наибольшее: ", t);
end.
Популярно: Информатика
-
Tumkanator04.04.2021 04:58
-
mixfix72810.09.2022 06:19
-
оля2710200016.10.2022 06:30
-
troffpolina200304.09.2021 08:47
-
istamov977701.06.2020 04:53
-
опернг27.03.2022 07:12
-
ева47001.02.2022 09:13
-
LeanardoGeni19.12.2021 03:45
-
Begkakaaa19.09.2020 18:40
-
мария56438415.04.2022 06:03