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

@AlexTS · Регистрация: 20.04.2013

Author24 — интернет-сервис помощи студентам

Ввод элементов матрицы с клавиатуры. Нужна помощь. Чтобы я мог ввести элементы матрицы А и В с клавиатуры

Pascal

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.

@Ssnake707 · 17.12.2015, 01:12

AlexTS,
На сколько я помню так:

Pascal

for i:=1 to n do
 for j:=1 to n do
  begin
   write("Введите A["+i+","+j+"] - ");
   readln(a[i,j]);
  end;

	17.12.2015, 01:12