Регистрация
Макс228336
30.09.2021 04:41
Информатика
Есть ответ 👍

Можете решить задание
по информатике
15 баллов

114
359
Посмотреть ответы 1

Ответы на вопрос:

даша34430
даша34430
4,5(10 оценок)
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.

Популярно: Информатика