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.
Конечно, мы постоянно используем знания полученные в школе. Это, например, элементарная прикладная математика: каждый совершает большие и маленькие покупки, распоряжается каким-то количеством денег, считает, вычисляет скидку на товар. Взрослый человек может взять кредит или затеять ремонт, и тогда уж математика на каждом шагу. Точные науки развивают логику и смекалку, которые мы можем применить и в отдыхе, и в работе. Гуманитарные уроки нам поддержать разговор или подскажут, как себя вести в какой-то ситуации, если читал или слышал о ней ранее.
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.
Конечно, мы постоянно используем знания полученные в школе. Это, например, элементарная прикладная математика: каждый совершает большие и маленькие покупки, распоряжается каким-то количеством денег, считает, вычисляет скидку на товар. Взрослый человек может взять кредит или затеять ремонт, и тогда уж математика на каждом шагу. Точные науки развивают логику и смекалку, которые мы можем применить и в отдыхе, и в работе. Гуманитарные уроки нам поддержать разговор или подскажут, как себя вести в какой-то ситуации, если читал или слышал о ней ранее.