дана целочисленная матрица а[n,m]. посчитать количество элементов матрицы, превосходящих среднее арифметическое значение всех элементов матрицы. принять n=4, m=5
var a : array of array of byte; i, j, k, l, m, n, t : byte; max : array[1..max_count] of byte; ch : char;
begin write('Введите количество строк: '); readln(n); write('Введите количество столбцов: '); readln(m); setLength(a, n); for i:=0 to n-1 do setLength(a[i], m); write('Заполнить матрицу случайными числами (y/n): '); readln(ch); if ((ch='y') or (ch='Y')) then begin randomize; for i:=0 to n-1 do begin for j:=0 to m-1 do begin a[i][j] := random(251); write(a[i][j]: 4, ' '); end; writeln; end; end else begin for i:=0 to n-1 do begin writeln('Заполните строку ', i+1); for j:=0 to m-1 do readln(a[i][j]); end; for i:=0 to n-1 do begin for j:=0 to m-1 do write(a[i][j]:4, ' '); writeln; end; end;
t :=255; for k:=1 to max_count do begin if k>1 then t:=max[k-1]; l := a[0][0]; for i:=0 to n-1 do for j:=0 to m-1 do if ((a[i][j] > l) and (a[i][j] < t)) then l:=a[i][j]; max[k] := l; end; writeln; write(max_count, ' максимальных элемента: '); for i:=1 to max_count do write(max[i], ' '); writeln; end.
Home – перемещение курсора ввода текста в начало строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш fn + ←).Home – перемещение курсора ввода текста в начало строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш fn + ←)End – перемещение курсора ввода текста в конец строки (на неполных клавиатурах тот же эффект достигается через комбинацию клавиш fn + →).←↑→↓ - клавиши перемещения курсора ввода по тексту.Ctrl + → - перемещение курсора на одно слово вправо.Ctrl + ← - перемещение курсора на одно слово влево.Page Up – на экранную страницу вверх.Page Down – на экранную страницу вниз.Ctrl + Page Up – на страницу вверх.Ctrl + Page Down – на страницу вниз.Ctrl + Home – переход в начало текста / документа.Ctrl + End – переход в конец текста / документа.Shift + F5 – переход к месту недавнего редактирования текста.
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int n=4, m=5;
int a[n][m];
srand(time(0));
int s=0;
for(int i=0; i<n; i++)
{
for(int j=0; j<m; j++)
{
a[i][j]=-99+rand()%199;
cout << setw(4) <<a[i][j];
s+=a[i][j];
}
cout << endl;
}
float r=float(s)/(m*n);
int k=0;
for(int i=0; i<n; i++)
for(int j=0; j<m; j++)
if(a[i][j]>r)
k++;
cout << "k = " << k;
return 0;
}