Определите, что больше: среднее арифметическое 1 столица…

Question

Определите, что больше: среднее арифметическое 1 столица или min 1 строки?

Answer 1

59

konsan

11 марта 2023

var a: array[1… 1000, 1… 1000] of integer; n, m, i, j, sum1, min: integer; average: real; begin readln (n, m); for i: =1 to n do for j: =1 to m do read (a[i][j]); min: =a[1][1]; for i: =2 to m do if a[1][i] < min then min: =a[1][i]; for j: =1 to n do inc (sum1, a[j][1]); average: =sum1 / n; if min > average then writeln ('Минимум 1 строки больше') else if min=average then writeln ('Равны') else writeln ('среднее арифм. 1 столбца больше'); writeln (min, average); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: