В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Юля13002
Юля13002
25.02.2023 05:07 •  Информатика

Перевести код на с++ const n=3; m=4; var a: array[1..n,1..m] of integer; b: array[1..n*m] of integer; i,j,k: integer; sr: real; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(100); write(a[i,j]: 4); end; writeln; end; sr: =0; for i: =1 to n do for j: =1 to m do sr: =sr+a[i,j]; sr: =sr/(n*m); writeln('sr = ',sr); k: =0; for i: =1 to n do for j: =1 to m do if a[i,j] writeln('полученный массив: '); for i: =1 to k do write(b[i]: 4); writeln; end.

Ответ:
oliasnigur2016
oliasnigur2016
04.10.2020 06:44
#include <stdlib.h>
#include <iostream>
#include <iomanip>
using namespace std;

int main() {
const int n = 3;
const int m = 4;
int a[n][m];
int b[n*m];
int k;
double sr;

cout << "Исходный массив" <<endl;
srand(time(0));
for (int i = 0; i < n; i++){
 for (int j = 0; j < m; j++){
a[i][j]=10+(51.0 / RAND_MAX) * rand();
cout << fixed << setw (7) << a[i][j];
 }
cout <<endl;
}
sr=0;
for (int i = 0; i < n; i++)
 for (int j = 0; j < m; j++)
  sr=sr+a[i][j];
sr = sr/(n*m); 
k = -1;
cout << "sr = " << sr << endl;
for (int i = 0; i < n; i++)
 for (int j = 0; j < m; j++)
  if (a[i][j]<sr) { k++; b[k]=a[i][j]; }
cout << "Полученный массив" <<endl;
for (int i = 0; i <= k; i++){
cout << fixed << setw (7) << b[i];
}
cout <<endl;
}

Пример:
Исходный массив
      31 60 58 40
      41 46 29 46
      53 38 47 42
 sr = 44.250000
 Полученный массив
      31 40 41 29 38 42
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?