Опубликовано 11.06.2017 по предмету Другие предметы от Гость >> <<

Пожалуйста,напишите ПОЛНОСТЬЮ задачку на Pascal
Отпечатайте с соответствующим заголовком в два столбца элементы 1-й и 4-й строк матрицы А

Ответ оставил Гость

Var
  b : array [,] of real;
  i, k, m : integer;
begin  while m < 4 do begin
   write(Введите размер матрицы (>3): );
    readln(m);
  end;
  b := new real[m,m];
  for i := 0 to m-1 do begin
    for k:= 0 to m-1 do begin
      read(b[i,k]);
    end;
  end;
  writeln();
  write(Cтрока 1: ); write(Chr(9)); writeln(Cтрока 4:);
  for i:= 0 to m-1 do begin
    writeln(b[0,i], Chr(9), Chr(9), b[3,i]);
   end;
end.

матрицу желательно вводить построчно и с пробелом между элементами
писалось в PascalABC.NET