10 класс! ПАСКАЛЬ АБС!! СРОЧНО! состиавить прогораму которая в ...
10 класс! ПАСКАЛЬ АБС!! СРОЧНО!
состиавить прогораму которая в обычном двумерном массиве выведет на печать индекс тех элементов, кот. больше среднего арифметического элементов массива.
все это делается относительно i и j
Есть ответ
12.12.2022
224
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
