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

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

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

Вариант 4

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

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

Задание: Замените элементы главной диагонали матрицы (n, n) на 0 , а все остальные элементы матрицы на 1

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

program lab6;

var i,j,n:byte;

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

begin

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

Read(n);

for i:=1 to n do

begin

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

end;

for i:=1 to n do

begin

writeln;

for j:=1 to n do

begin

if (i-j=0) then

a[i,j]:=0

Else

a[i,j]:=1;

write(' ',a[i,j]);

end;

end;

end.

a[i,j]:=0

a[i,j]:=0

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