Пожалуйста, помогите написать программу или хотя бы объясните, что от меня вообще хотят....Найти количество элементов к каждому столбцу прямоугольной
10-11 класс
|
вещественной матрицы, меньших среднего арифметического всех элементов, рассмотренного столбца.
var a:array [byte,byte] of real;
i,j,n,m:byte;
s:real;
d,p:word;
begin
write('Введите количество строк n = ');readln(n);
write('Введите количество строк m = ');readln(m);
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
s:=0;d:=0;p:=0;
for i:=1 to m do begin
for j:=1 to n do
s:=s+a[j,i];
for j:=1 to n do
if a[j,i]<(s/n) then inc(d);
writeln('Количество элементов в столбце ',i,' прямоугольной вещественной матрицы, меньших среднего арифметического d = ',d,' Среднее арифметическое = ',(s/n):0:4);
p:=p+d;
d:=0;s:=0;
end;
writeln('Общее количество элементов меньших элементов в столбцах = ',p);
writeln('Матрица');
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
end.
Другие вопросы из категории
234; 823, 2301; 3857, 6831
равносторонний, равнобедренный или разносторонний), иначе выдать соответсвующее сообщение.
принтер, процессор, клавиатура, звуковая карта, монитор, оперативная память, устройство CD-ROM? Почему?
(на угад б я так смогла наставить, меня больше интересует вопрос "почему?" Не разочарует только полный ответ)
Читайте также
Или хотя бы ход решения, какие операторы использовать и т. п.
В отчете предоставить блок-схемы всех
функций, текст программы.
Задача : В целочисленном массиве Х(N) удалить все элементы, расположенные
между максимальным и минимальным элементами. Найти среднее
арифметическое элементов массива до и после удаления. В программе
написать функции: удаления элемента, поиска номеров минимального и
максимального элементов, определения среднего арифметического
элементов массива.
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
13.
Нужно написать программу на цикле с предусловием, на Паскале.
Дано натуральное число n. Написать программу вычисляющую сумму