Ввод элементов матрицы с клавиатуры - Pascal ABC

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

Ввод элементов матрицы с клавиатуры. Нужна помощь. Чтобы я мог ввести элементы матрицы А и В с клавиатуры
program matr5lab;
const n=3;
      A:array[1..n,1..n]of integer=((2,5,3),(5,4,5),(9,8,7));
      B:array[1..n,1..n]of integer=((6,5,5),(9,3,2),(3,1,2));
var c:array[1..n,1..n]of integer;
    i,j,k:integer;
begin
writeln('Матрица A:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
writeln('Матрица B:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:4);
  writeln
 end;
for i:=1 to n do
for j:=1 to n do
 begin
  c[i,j]:=0;
  for k:=1 to n do
  c[i,j]:=c[i,j]+a[i,k]*b[k,j];
 end;
writeln('Матрица С=A*B:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(c[i,j]:4);
  writeln;
 end;
end.


textual

Код к задаче: «Ввод элементов матрицы с клавиатуры - Pascal ABC»

for i:=1 to n do
 for j:=1 to n do
  begin
   write("Введите A["+i+","+j+"] - ");
   readln(a[i,j]);
  end;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.750 из 5

Источник
Похожие ответы