Ответы на вопрос:
Var i, x, y: integer; a: array [1..255] of integer; function sr(i: integer): string; begin sr: =inttostr(i)[2]; end; begin writeln('vvedite kol-vo chisel'); read(x); for i: =1 to x do read(a[i]); writeln(); for i: =1 to x do writeln(sr(a[i])); end.
Популярно: Информатика
-
холера67322.03.2020 05:02
-
Римская123.10.2022 18:37
-
pershinspa03.06.2023 13:06
-
BashProcker19.08.2020 02:36
-
Ksu2k1725.08.2020 16:55
-
maks73716.03.2022 10:54
-
kama21heas2127.04.2022 10:04
-
krudnya07.01.2020 00:22
-
Supermegahulk13.11.2021 17:44
-
lenichk27.10.2022 23:14