===>!!Двумерные массивы!!<<<===

[Pro100studeNT]

Помогите пожалуйста написать программу для Paskal. (Дана матрица размера M х N. Для каждой строки матрицы с нечетным номером (1, 3, …) найти среднее арифметическое ее элементов.)
Заранее благодарен!

[xwicked]

DOWN!
P.S. Посмотрите, пожалуйста, темы, которые похожие на Вашу: "Похожие темы" внизу данной страницы. Если проблема не будет исчерпана - пишите повторно, с предоставлением хотя бы 5% от нормы рабочего кода. Благодарю за внимание!

[Danko]

На каком языке нужно выполнить задание?

[WebbMan]

#include <iostream>
using namespace std;
int main()
{
int M, N = 3;
int mass_two[M][N];
int t = 0;
double crednee; 
int chetchik;  
	 
   for(int i = 0; i <= M; i++)
   {
    for(int u = 0; u <= N; u++)
         {
		    mass_two[u][i]= t; t++;
         }
   };
    
 for(int i = 0; i <= M; i++){
   for(int u = 0; u <= N; u++)
   {
		cout << mass_two[u][i] << " | ";
   }cout << endl;}
   
cout << endl;
   for(int i = 0; i <= M; i++)
   {
           crednee  = 0;
           chetchik = 0;
    for(int u = 1; u <= N; u=u+2)
         {
		    crednee = crednee+mass_two[u][i]; chetchik++;
		    
         }
         
         crednee = crednee/chetchik;
         cout << crednee;
         cout << "\n";
   };
   

    system("pause");
    return 0;
}

[Pro100studeNT]

Сообщение от Danko

На каком языке нужно выполнить задание?

Paskal /

[Danko]

uses CRT;

const M=3; //Количество строк матрицы
         N=3; //Количество столбцов матрицы

var mas:array [1..M,1..N] of integer;  //Матрица размером MxN
    i,j:integer;                                 //Воспомогательные переменные
    sum:integer;                              // Счетчик

begin                                              //Вручную задаем элементы матрицы
for i:=1 to M do                                      
 for j:=1 to N do
  begin
   write('Vvedite [',i,'][',j,'] element: ');
   readln(mas[i,j]);
  end;
 
  
 for i:=1 to M do                     
   if  i mod 2<>0 then     //Проверяем, четная ли строка
                                 //если нет, то                    
   begin
    for j:=1 to N do
     sum:=sum+mas[i,j];   //вычисляем сумму эл-тов неч. строки
     writeln('Srednee arifmeticheskoe ',i,' stroki: ',sum/N); //выводим рез-тат
     sum:=0;                                                         //очищаем счетчик
     end;

end.