Как называются в exlel линии сетки, соответствующие дополнительным делением осей?
189
200
Ответы на вопрос:
A: array[1..10, 1..10] of integer; i, j, m, n: byte; minelem: integer; begin write('m = '); readln(m); write('n = '); readln(n); { формируем и выводим матрицу: } randomize; writeln('случайная матрица ', m, 'x', n, ': '); for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = -100 + random(200); write(a[i, j]: 4) end; writeln end; writeln; writeln('минимальный элемент в каждой строке: '); for i : = 1 to m do begin { начальное значение минимального элемента равно первому элементу строки (j = 1): } minelem : = a[i, 1]; for j : = 2 to n do { проверяем остальные элементы строки: j = 2, 3, n } { если a[i,j] меньше минимума, то новым минимумом становится a[i,j] } if a[i, j] < minelem then minelem : = a[i, j]; writeln(i, '-я строка: минимальный элемент = ', minelem) end; readln end.
Популярно: Информатика
-
00svetochka0027.01.2022 00:15
-
рустам22212.01.2022 07:51
-
hfhfhjfy25.05.2022 22:23
-
ppppppp000014.01.2022 02:50
-
polinabaryshni25.10.2022 04:32
-
Unicorn13510.01.2022 08:05
-
lebswetl09.10.2022 10:41
-
leonid9012.10.2020 12:21
-
karikovt07.02.2021 17:53
-
mary2005super22.02.2021 14:24