Program lab3 const 20 var array of real array of real array of real in

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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.