Вывести на печать исходный массив в виде матрицы и средние арифметические каждой строки матрицы с указанием номера строки

@Noojer · Регистрация: 21.05.2013

О великие знатоки паскаля, прошу у вас помощи
Задача : Ввести двумерный массив 3х3. Вывести на печать исходный массив в виде матрицы и средние арифметические каждой строки с указанием номера строки.

Kodzaev · 22.05.2013, 19:50

Pascal

Uses crt;
Var
  x: Array [1..3,1..3] of Integer;
  i,j: Byte;
  s: Integer;
BEGIN
Writeln('Введите элементы: ');
For i:=1 to 3 do
For j:=1 to 3 do
Readln(x[i,j]);
Clrscr;
For i:=1 to 3 do
begin
  For j:=1 to 3 do
  Write(x[i,j]:3);
  Writeln
end;
Writeln;
For i:=1 to 3 do
begin
  s:=0;
  For j:=1 to 3 do
  s:=s+x[i,j];
  Writeln(i,' = ',s/3:2:2);
end;
Readln
END.

@Noojer 0 / 0 / 0 Регистрация: 21.05.2013 Сообщений: 3
		1
	Вывести на печать исходный массив в виде матрицы и средние арифметические каждой строки матрицы с указанием номера строки 22.05.2013, 19:33. Показов 1701. Ответов 1 Метки нет (Все метки) О великие знатоки паскаля, прошу у вас помощи Задача : Ввести двумерный массив 3х3. Вывести на печать исходный массив в виде матрицы и средние арифметические каждой строки с указанием номера строки. 0

Опции темы

Вывести на печать исходный массив в виде матрицы и средние арифметические каждой строки матрицы с указанием номера строки

Решение