Задание:
Определите, что больше: среднее арифметическое 1 столица или min 1 строки?
Решение:
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.
Знаете другой ответ?