Нужна помощь с Pascal Дан двумерный массив от 1 до 3 ввести элементы массива с клавиатуры и обнулить диагональ матрицы
Нужна помощь с Pascal
Дан двумерный массив от 1 до 3 ввести элементы массива с клавиатуры и обнулить диагональ матрицы
Гость
Ответ(ы) на вопрос:
Гостьprogram Project2;
{$APPTYPE CONSOLE}
var a:array [1..3,1..3] of integer; i,n:Integer;
begin
for i:=1 to 3 do
for n:=1 to 3 do
read(a[i,n]);
for i:=1 to 3 do
for n:=1 to 3 do
if i=n then
a[i,n]:=0;
for i:=1 to 3 do
begin
Writeln;
for n:=1 to 3 do
write(a[i,n]:3);
end;
readln;
readln;
end.
Не нашли ответ?
Похожие вопросы