В двумерной матрице A(N, M), состоящей из произвольных чисел, определить номера столбцов, в которых среднее арифметическое его элементов меньше чем
10-11 класс
|
среднее арифметическое элементов массива.
var
i,j,n,m:integer;
s:real;
a:array[0..1000,1..1000] of real;
begin
readln(n,m);
randomize;
s:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
s:=s+a[i,j];
write(a[i,j],' ')
end;
writeln
end;
s:=s/n/m;
writeln;
for j:=1 to m do
begin
for i:=1 to n do a[0,j]:=a[0,j]+a[i,j];
a[0,j]:=a[0,j]/n;
if a[0,j]<s then write(j,' ')
end
end.
var
i, j, n, m: integer;
s, t: real;
a: array[1..100, 1..100] of integer;
begin
randomize;
readln(n, m);
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(100);
s := s + a[i, j];
write(a[i, j]:3, ' ')
end;
writeln()
end;
s := s / n / m;
writeln();
for j := 1 to m do
begin
t := 0;
for i := 1 to n do
t := t + a[i, j];
if t / n < s then
write(j, ', ')
end
end.
Другие вопросы из категории
Читайте также
функцию для нахождения номеров строк, произвольной матрицы, не содержащей нулей. Составить на языке паскаль.
двумерной матрицы, находящиеся над побочной диагонали; упорядочить их по возрастанию и найти их среднее арифметическое.
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
установить отсутствие отрицательных чисел. Алгоритм решения задачи записать в виде блок-схемы.