Ответы на вопрос:
Function read(file: string, size: integer): array[1..1000,1..1000] of integer; var t : text; var i, j : integer; var a: array[1..1000, 1..1000] of integer; begin assign(t, path); reset(t); for i : = 1 to size do begin for j : = 1 to size do read(t, a[i,j]); readln(); end; read: = a; end.
Популярно: Информатика
-
alanragibov0204.12.2020 10:10
-
notmedont03.11.2022 08:54
-
kategys22.03.2021 07:52
-
yuliyamusatova119.03.2020 04:16
-
Hackerapo4ta14.10.2021 07:12
-
VasyaKotikSnake01.07.2022 20:04
-
brayamsp0altc07.07.2022 05:33
-
Kiraпомошник07.02.2020 20:37
-
марина170410.03.2020 13:35
-
Morikachan4618.09.2022 12:41