Прослушай текст и вставь пропущенное слово. Мальчики решили прогнать птиц и стали
в них камни.
297
323
Ответы на вопрос:
{uses crt; } {для древних сред паскаль, работающих в dos-режиме, снять комментарии в операторах uses, clrscr, readkey } const n = 10; var a: array[1..n, 1..n] of integer; i, j, min, max: integer; begin randomize; {clrscr; } writeln('исходный массив'); max: =-100; min: =100; for i : = 1 to n do begin for j : = 1 to n do begin a[i, j] : = random(81)+10; write(a[i,j]: 3); if max< a[i,j] then max: =a[i,j] else if min> a[i,j] then min: =a[i,j] end; writeln end; writeln('min=',min: 2,', max=',max: 2); {readkey} end. тестовое решение: исходный массив 38 43 63 12 80 87 22 82 39 52 88 82 79 35 68 67 66 63 84 85 78 48 46 26 63 71 32 71 86 45 11 38 55 12 75 85 68 13 64 88 87 16 27 26 74 34 88 76 26 25 74 45 17 18 43 81 88 46 40 18 65 41 87 85 51 59 36 76 51 73 90 63 89 87 88 71 31 29 43 38 74 47 55 70 61 56 31 46 60 84 88 31 64 56 32 55 19 32 66 24 min=11, max=90
Популярно: Информатика
-
ЯсминаАбд04.09.2022 22:47
-
sugurbaeva200219.05.2022 16:58
-
Черный281507.09.2020 13:28
-
Азрет200215.08.2022 11:05
-
Призванный18.02.2021 13:38
-
8999470904018.11.2021 11:12
-
ketgalyschko02.04.2022 00:43
-
ypinkers009.07.2020 10:20
-
dilya09128.04.2023 02:33
-
anmon0724.05.2021 03:00