Консультация № 136465
12.05.2008, 13:49
0.00 руб.
0 1 1
ввести с клавиатуры элементы матрицы 3х3. Вывести на экран исходную матрицу, каждый элемент которой умножен на 3

Обсуждение

Неизвестный
12.05.2008, 22:02
общий
это ответ
Здравствуйте, Cobain!
Задача с комментариями в приложении.
Удачи!!!


Приложение:
Const {Размер матрицы} n=3; m=3;var {Сама матрица} Matrix: array [1..N, 1..M] of integer; {Счетчики для For} i, j: integer;begin {Получаем матрицу} WriteLn(‘Введите матрицу: ‘); for i:=1 to N do for J:=1 to M do begin Write(‘Элемент № [‘, i, ‘,‘, j,‘]: ‘); ReadLn(Matrix[i, j]); end; WriteLn(‘Рез-тат: ‘); {В цикле перебираем всю матрицу} for i:=1 to N do begin for j:=1 to M do {Выводим тек. эл. умноженыый на 3} Write(Matrix[i, j]*3:3); {Начинаем новую строку} WriteLn; end; readln;end.
Форма ответа