Program laba7;
const n=7;
var a:array[1..3*n] of real;
b:array[1..n] of real;
i,j:integer;
begin
for i:=1 to 3*n do
write ('a[',i,']=');
readln (a[i]);
end;
begin
for i:=1 to n do
Владимир,большое спасибо за решение.Только мы решаем немного иначе,посмотрите пожалуйста,исходя из моего условия,что можно сделать даальше??я запуталась окончательно,и вообще ход правильный?