Вывод строки и столбца матрицы

[Lexxy]

Вывод строки и столбца матрицы

Помогите пожалуйста решить программу.
Дана матрица:

program ggg1;
uses crt;
var
a:array[1..4,1..4] of integer;
i,j:byte;
begin clrscr;
for i:=1 to 4 do
for j:=1 to 4 do
if i=j then a[i,j]:=1;
for i:=1 to 4 do begin
end;
for i:=1 to 4 do
for j:=1 to 4 do
if i<j then a[i,j]:=5;
for i:=1 to 4 do begin
writeln;
for j:=1 to 4 do
write (a[i,j],' ');
end;
end.

Надо вывести вниз через промежутки отдельно 1 строку и 1 столбец матрицы.

 

[Vladimir_S]

Помогите пожалуйста решить программу.

Извините, но впервые слышу, чтобы программы "решали". Их пишут, отлаживают, транслируют, запускают и т.п. А решают задачи, иногда посредством написания программ.

Дана матрица:

program ggg1;
uses crt;
var
 a:array[1..4,1..4] of integer;
 i,j:byte;
begin     
 clrscr;
 for i:=1 to 4 do
  for j:=1 to 4 do
   if i=j  then a[i,j]:=1;

Так - досюда понятно. Определен двумерный целочисленный массив 4Х4 и диагональным элементам присвоено значение 1. Продолжаем.

for i:=1 to 4 do 
 begin
 end;

Великолепно! И что сия пустышка означает? Ладно, поехали дальше.

for i:=1 to 4 do
  for j:=1 to 4 do
   if i<j  then a[i,j]:=5;

Прекрасно - заполнили пятерками правый верхний угол матрицы, всё, что над главной диагональю. А как насчет левого нижнего угла?

for i:=1 to 4 do 
 begin
   writeln;
   for j:=1 to 4 do
   write (a[i,j],' ');
 end;

Теперь вывели всю матрицу на экран. Чудесно! И что - никак не написать цикл вывода определенной строки или определенного столбца? Что-то вроде

writeln;
for j:=1 to 4 do write (a[1,j],' ');
writeln;
for i:=1 to 4 do write (a[i,1],' ');

И в чем проблема?

end.

При наличии экранного вывода рекомендуется в конце программы вставить останов - либо ReadLn; , либо (если загружен модуль CRT) ReadKey; , чтобы иметь возможность посмотреть на результат.