лабораторная работа / вар14 / лаб6

Балаковский институт техники технологий и управления

Лабораторная работа №6

Вариант 14

Выполнил студент УИТ-2в

Балаково 2007 год.

Задание: Напишите программу, увеличивающую каждый элемент мат­рицы (n,m) в 3 раза и сохраняющую результат в виде второй мат­рицы.

Текст программы:

program lab6;

var i,j :byte;

n,m:integer;

a: array[1..10,1..10] of integer;

b: array[1..10,1..10] of integer;

begin

writeln('Введите количество строк');

Read(n);

writeln('Введите количество столбцов');

Read(m);

for i:=1 to n do

begin

writeln('Введите значения ',i,' строки');

for j:=1 to m do Read(a[i,j]);

end;

for i:=1 to n do

for j:=1 to m do b[i,j]:= a[i,j]*3;

for i:=1 to n do

begin

writeln;

for j:=1 to m do write(b[i,j],' ');

end;

end.

Рис.1 Блок–схема программы