Цитата:
Сообщение от Vladimir_S
Вот, получите:
Код:
const
n=7;
var
a:array[1..3*n] of real;
b:array[1..n] of real;
i:integer;
begin
for i:=1 to 3*n do
begin
write ('a[',i:2,']= ');
readln (a[i]);
end;
writeln;
for i:=1 to 3*n do
write(a[i]:8:3);
writeln;
writeln;
for i:=1 to n do
b[i]:=(a[1+(i-1)*3]+a[2+(i-1)*3]+a[3+(i-1)*3])/3;
for i:=1 to n do
write(b[i]:8:3);
readln
end.
|
Владимир, решила попробовать похожую задачу здесь нашла где то,вот что получилось,но у меня не выводит ответ ,выходят нули. Условие:дан целочисленный вектор a(а1,а2,...,an) построить вектор b(b1,b2,...,bn)приняв в качестве первых его компонент все отрицательные компоненты вектора a(с сохранением порядка их следования)в качестве остальных положительные компоненты вектора a,также с сохранением порядка их следования.
program lab_7;
uses crt;
const n=5;
var a:array[1..n] of integer;
b:array[1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
write ('a[',i,']=');
readln (a[i]);
end;
clrscr;
j:=1;
for i:=1 to n do
begin
if a[i]<0 then begin
a[i]:=b[j];
j:=j+1;
end;
end;
for i:=1 to n do
begin
if a[i]>=0 then begin
a[i]:=b[j];
j:=j+1;
end;
end;
for i:=1 to n do
writeln (b[i]);
readln;
end.