Ответы на вопрос:
Var a: array[1..1000] of integer; i,q,n: integer; begin q: =0; writeln('кол-во чисел'); readln(n); for i: =1 to n do begin writeln('введите число №',i); readln(a[i]); if a[i] mod 10 = 8 then if a[i]> q then q: =a[i]; end; writeln(q); end.
Популярно: Информатика
-
irochka32096916.02.2022 11:20
-
tana281125.03.2020 02:13
-
Otlichnisa14045516.02.2020 03:45
-
JasminNuar54416.10.2021 17:11
-
gghvagsh16707.04.2021 17:10
-
istamov977701.06.2020 04:53
-
masha1256606.12.2022 00:37
-
sveta45404.12.2020 22:44
-
Sofa135126.11.2022 04:27
-
marek229.02.2020 12:50