Написать программу, которая вводит по строкам с клавиатуры двумерный массив

@avabnic · Регистрация: 10.03.2012

Author24 — интернет-сервис помощи студентам

Написать программу, которая вводит по строкам с
клавиатуры двумерный массив и вычисляет сумму его элементов
по столбцам.

@3a9Ic · 10.04.2012, 19:31

Pascal

uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
     write('Матрица:');
     writeln('');
     for i:=1 to n do
     for j:=1 to n do
     begin
     write('a[',i,' ',j,']=');
     read(a[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to n do
     begin
          gotoxy(j*5+10,i+1);
          Write(a[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to n do s:=s+a[i,j];
     writeln(' Summa=',s);
end.

Добавлено через 1 час 46 минут
Не до конца доделал. Правильный код.

Pascal

uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
     write('Матрица:');
     writeln('');
     for i:=1 to n do
     for j:=1 to n do
     begin
     write('a[',i,' ',j,']=');
     read(a[i,j]);
     end;
     for i:=1 to n do
     for j:=1 to n do
     begin
          gotoxy(j*5+10,i+1);
          Write(a[i,j]);
     end;
     s:=0;
     for j:=1 to n do
     begin
          for i:=1 to n do
          begin
          s:=s+a[i,j];
          end;
     gotoxy(j*10+5,i+3);
     writeln(' Summa=',s);
     s:=0;
     end;
end.

@avabnic 0 / 0 / 0 Регистрация: 10.03.2012 Сообщений: 16
		1
	Написать программу, которая вводит по строкам с клавиатуры двумерный массив 10.04.2012, 17:03. Показов 1836. Ответов 1 Метки нет (Все метки) Написать программу, которая вводит по строкам с клавиатуры двумерный массив и вычисляет сумму его элементов по столбцам. 0

	10.04.2012, 19:31

Написать программу, которая вводит по строкам с клавиатуры двумерный массив

Решение