Перевод с Paskal на C++. Найти среднее арифметическое в двумерном массиве

@In_tsvetckowa · Регистрация: 19.09.2014

Помогите, пожалуйста, перевести программу для нахождения среднего арифметического в двумерном массиве на Си++.

Pascal

program z;
var a:array [1..1000,1..1000] of integer;
i,j: byte; n,m: integer; s: real;
begin
randomize;
write('Введите количество строк '); readln(n);
write('Введите количество столбцов '); readln(m);
for i:=1 to n do
begin
for j:=1 to m do
a[i,j]:= random(10);
end;
s:=0;
for j:=1 to m do
s:=s+a[1,j];
s:=s/m;
writeln('Среднее арифметическое элементов первой строки = ',s);
s:=0;
for j:=1 to m do
s:=s+a[n,j];
s:=s/m;
writeln('Среднее арифметическое элементов последней строки = ',s);
s:=0;
for i:=1 to n do
s:=s+a[i,1];
s:=s/n;
writeln('Среднее арифметическое элементов первого столбца = ',s);
s:=0;
for i:=1 to m do
s:=s+a[i,m];
s:=s/n;
writeln('Среднее арифметическое элементов последней строки = ',s);
end.

@Тамика · 16.01.2015, 16:53

Ну хоть паскалевский код потрудились найти.

C++

#include <iostream>
 
int main()
{
    setlocale(LC_ALL, "Russian");
    int a[1000][1000];
    double s;
    int n, m;
    std::cout << "Введите количество строк ";
    std::cin >> n;
    std::cout << "\nВведите количество столбцов ";
    std::cin >> m;
 
    for (int i = 0; i < n; ++i)
        for (int j = 0; j < m; ++j)
            a[i][j] = rand()%10;
 
    s = 0;
    for (int j = 0; j < m; ++j)
        s += a[1][j];
    s = s/m;
    std::cout << "\nСреднее арифметическое элементов первой строки = " << s;
 
    s = 0;
    for (int j = 0; j < m; ++j)
        s += a[n][j];
    s = s/m;
    std::cout << "\nСреднее арифметическое элементов последней строки = " << s;
 
    s = 0;
    for (int i = 0; i < n; ++i)
        s += a[i][1];
    s = s/n;
    std::cout << "\nСреднее арифметическое элементов первого столбца = " << s;
 
    s = 0;
    for (int i = 0; i < m; ++i)
        s += a[i][m];
    s = s/n;
    std::cout << "\nСреднее арифметическое элементов последней строки = " << s;
    system("pause>>null");
}

@In_tsvetckowa · 16.01.2015, 17:20 **[ТС]**

Ну хоть паскалевский код потрудились найти.

Код на Паскале я писала сама. Спасибо за помощь.

@In_tsvetckowa 0 / 0 / 0 Регистрация: 19.09.2014 Сообщений: 2
	16.01.2015, 17:20 [ТС]	3
	Ну хоть паскалевский код потрудились найти. Код на Паскале я писала сама. Спасибо за помощь. 0

Опции темы

Перевод с Paskal на C++. Найти среднее арифметическое в двумерном массиве

Решение