Получить целочисленную матрицу по правилу - Turbo Pascal (33699)

Формулировка задачи:

!!!

Код к задаче: «Получить целочисленную матрицу по правилу - Turbo Pascal (33699)»

textual
uses crt;
const n=3;
var b:array[1..n,1..n] of integer;
    a:array[1..n] of integer;
    i,j:byte;
begin
clrscr;
writeln('Введите 3 целых числа');
for i:=1 to n do
readln(a[i]);
writeln('Матрица B');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=a[i]-3*a[j];
    write(b[i,j]:5)
   end;
  writeln
 end;
readln
end.

10   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ