10 класс! ПАСКАЛЬ АБС!! СРОЧНО!
состиавить прогораму которая в обычном двумерном массиве выведет на печать индекс тех элементов, кот. больше среднего арифметического элементов массива.
все это делается относительно i и j
var
a:array[1..100, 1..100] of real;
n, m, i, j:integer;
Sr:real;
begin
write(Введите количество строк матрицы ); readln(m);
write(Введите количество столбцов матрицы ); readln(n);
writeln(Исходный массив:);
Sr := 0;
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(101) - 50;
write(a[i, j]: 5:0);
Sr := Sr + a[i, j];
end;
writeln;
end;
Sr := Sr / (n * m);
writeln(Среднее арифметическое равно , Sr);
writeln(Элементы больше среднего арифметического:);
for i := 1 to m do
for j := 1 to n do
if a[i, j] > Sr then
writeln(a[, i, , , j, ] = , a[i, j]);
end.
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
