Запишите алгоритм перемещения Робота в клетку В с закрашиванием клетки 1.
275
467
Ответы на вопрос:
Var i, j, n, m: integer; s, t: real; a: array[1..100, 1..100] of integer; begin randomize; readln(n, m); for i : = 1 to n do begin for j : = 1 to m do begin a[i, j] : = random(100); s : = s + a[i, j]; write(a[i, j]: 3, ' ') end; writeln() end; s : = s / n / m; writeln(); for j : = 1 to m do begin t : = 0; for i : = 1 to n do t : = t + a[i, j]; if t / n < s then write(j, ', ') end end.
Популярно: Информатика
-
Александра6665602.10.2022 03:06
-
09kok9024.02.2020 20:50
-
Tinusya23.07.2020 12:54
-
annajellycat13.06.2022 00:40
-
dashutka2003216.05.2021 19:40
-
эля79231.03.2023 19:38
-
sentyakovv05.11.2020 05:04
-
KriSha1119.07.2022 02:51
-
exm0r3d22.03.2020 20:57
-
лера208304.06.2020 04:17