Program file5;
uses crt;
const n=5;
var i,j,sum,m:integer;
    a:array[1..n,1..n] of integer;
    h,f:text;
    c:char;
    name:string;
begin
randomize;
assign(f,'f3.txt');
rewrite(f);
sum:=0;
for i:=1 to n do
 begin
 for j:=1 to (n-1) do
  begin
  m:=random(10);
  write(f,m,' ');
  end;
 m:=random(10);
 writeln(f,m);
 end;
close(f);
reset(f);
for i:=1 to n do
for j:=1 to n do
 begin
 read(f,m);
 a[i,j]:=m;
 end;
close(f);
assign(h,name);
rewrite(h);
reset(f);
for i:=1 to n do
 begin
 sum:=0;
 for j:=1 to n do
  begin
  sum:=sum+a[i,j];
  end;
 writeln(h,'summa elementov ',i,' stroki= ',sum);
 end;
for i:=1 to n do
 begin
 for j:=1 to n do
 write(a[i,j]);
 writeln;
 end;
close(f);
close(h);
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.09.2010, 23:48

Ответы с готовыми решениями:

Определить сумму всех элементов матрицы и разделить элементы каждой строки на первый элемент строки
Добрый вечер, решите пожалуйста. Определить и напечатать сумму всех элементов матрицы. Разделить...

Дан двумерный массив. Определить сумму элементов каждой строки.
Дан двумерный массив. Определить сумму элементов каждой строки.

Определить наименьшие элементы каждой строки матрицы и найти их сумму
Помогите решить программу. В квадратной матрице А определить наименьшие элементы каждого рядка и...

Определить сумму элементов каждой строки матрицы
Дана матрица А(7х3) масс грузов от М отправителей к N получателям. 1) заполнить матрицу по...

	15.09.2010, 23:48

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.09.2010, 23:48

Помогаю со студенческими работами здесь

Данный массив 6 * 5. Определить сумму крупнейших элементов каждой строки массива. Расположить элементы n строки по возра
Подойдет такой код? onst n=5; m=5; Var A : array of integer; B : array of integer; i,...

Определить сумму положительных элементов каждой строки матрицы
//Дана прямоугольная целочисленная матрица размером m*n, //где m - количество строк, а n -...

Определить сумму отрицательных элементов каждой строки матрицы
Помогите, пожалуйста. Дана матрица 4х5. Определить сумму отрицательных элементов каждой строки и...

Вычислить сумму элементов каждой строки матрицы, определить наименьшее значение этих сумм и номер соответствующей строки
Помогите написать программу: Вычислить сумму элементов каждой строки матрицы, определить...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх