Program lab3;
const n=20;
var A:array[1..n,1..n] of real;
B:array[1..n] of real;
C:array[1..n] of real;
i,j: integer;
sum: real;
begin
for i:=1 to n do
for j:=1 to n do
begin
for i:=2 to n do {Четыре вложенных цикла. Такому коду впринцпе сложно найти применение,
а в лабе для первокурсников вообще 100%}
for j:=1 to i-1 do
A[i,j]:=0;
end;
read(A[i,j]); {сюда уже ни один цикл не достает, это выполнится один раз с неизвестными параметрами i, j}
writeln (B); {Что здесь происходит? Если ты хотела вывести массив, то так он не выводится.
Да и он пустой пока. На класическом паскале ошибку выдаст}
for i:=1 to n do
read (B[i]); {Вот это правильная инициализация массива, но никак иначе}
sum:=0;
for i:=1 to n do
begin
sum:=sum+A[i,j]*B[i]; {Где изменяется j? И откуда вообще эта формула?}
С[i]:=sum;
end;
for i:=1 to n do
writeln (C[i]);
end.