Ошибка с двумернными массивами.

@CTPEJIOK · Регистрация: 19.11.2009

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

программа для суммы двумерных массивов.

Pascal

var 
x:array[1..n,1..m] of integer;
c:array[1..n,1..m] of integer;
b:array[1..n,1..m] of integer;
begin
For i:=1 to n do
for j:=1 to m do
begin
B[i,j]:=X[i,j]+C[i,j];
writeln(B[i.j]);
readln;
end;
end.

Помогите исправить, что не так.

25.12.2011, 13:36

Если массивы размерностью 5*5 то программа выглядит примерно так

Pascal

program sum;
uses crt;
const n=5;
      m=5;
var
i,j:byte;
x:array[1..n,1..m] of integer;
c:array[1..n,1..m] of integer;
b:array[1..n,1..m] of integer;
begin
Randomize;
for i:=1 to n do
for j:=1 to m do
x[i,j]:=random(20)-1;
for i:=1 to n do
for j:=1 to m do
c[i,j]:=random(20)+2;
For i:=1 to n do
for j:=1 to m do
begin
B[i,j]:=X[i,j]+C[i,j];
end;
Write(B[i,j]);
Readln;
end.

	25.12.2011, 13:36

Опции темы