работа с многомерными массивами

[Sazary]

c:integer;
a,b:real;

Массивы объявляются не так.

for j=1 then m:=i+1;

вообще бред

Исправлять здесь нечего. Это время вы могли бы потратить на чтение учебника. Все, что нужно для этих задач, можно узнать за час-два.

Повторю еще раз: пользуйтесь поиском.
Пара ссылок оттуда:
http://programmersforum.ru/showthrea...F2%F0%E8%F6%FB
http://programmersforum.ru/showthrea...F2%F0%E8%F6%FB

[Лунатик222]

Сообщение от tik17

program proiz;
const n=2;

var
i,j,m,c:integer;
a,b:real;
begin
writeln('input matrix and vector');
for j=1 then m:=i+1;
for i=1 then n;
read(c[i];
c[i]:=c[i]+a[i,j]*b[j];
writeln('c',c[i])
readln;
readln;
end.
исправьте пожалуйста

for j=1 then m:=i+1;
for i=1 then n;

Это что? что тут исправлять?

[tik17]

Дайте ссылки на конкретную теорию для этих задач

[tik17]

uses crt;
const n=10;
m=5;
type tmas = array[1..m,1..n] of real;
tvector = array[1..n] of real;

var i,j : integer;
a : tmas;
b,c : tvector;


begin
writeln('Sluchaino sgenerirovannie matr A i vector B');

writeln('A=');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)+1;
write(a[i,j]:3:2,' ');
end;
writeln;
end;

writeln('B=');
for j:=1 to n do
begin
b[j]:=random(10)+1;
write(b[j]:3:2,' ');
end;
writeln;

for i:=1 to m do
for j:=1 to n do
c[i]:=c[i]+a[i,j]*b[j];

writeln('C=');
for i:=1 to m do
begin
write(c[i]:3:2,' ');
end;

readkey;
end.

[Sazary]

tik17
Похоже, все правильно.
Скажу только одно: раз вы заполняете массивы целыми числами, то и объявить их логичнее как целочисленные.

type tmas = array[1..m,1..n] of integer;
tvector = array[1..n] of integer;

И тогда при выводе количество знаков после запятой указывать не нужно:

write(c[i]:3,' ');

Но это так.. мелочи.