Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ помогите решить задачу

Автор: Hlim 24.12.2007 20:19

Дано A[20] нецелых элементов. Найти произведение для i<=Ai<=i^2 и сумму отрицательных элементов, стоящих на чётных позициях.

Помогите пожалуйсто.

Автор: Ozzя 24.12.2007 20:28

p:=1;
s:=0;
for i:=1 to 20 do
begin
if (a[i]>=i) and (a[i]<=i*i) then
p:=p*a[i];
if (i mod 2 =0) and (a[i]<0) then
s:=s+a[i];
end;

Автор: Гость 24.12.2007 20:48

посмотрите пожалуйсто так делаю или нет?

const a=20;
i: integer;
p,s: real;
begin
p:=1;
s:=0;
for i:=1 to 20 do
begin
if (a[i]>=i) and (a[i]<=i*i) then
p:=p*a[i];
if (i mod 2 =0) and (a[i]<0) then
s:=s+a[i];
end;
writeln ('произведение=',p:6:2);
writeln ('сумма отриц. эл-тов стоящих на чётных позициях=',s:2);
readln;
end.

Автор: Hlim 24.12.2007 21:32

не работает, помогите найти ошибки.

Автор: Ozzя 25.12.2007 16:46

Она у тебя не только НЕ должна работать, но И компилироваться тоже.

Массив не описан:


const
n=20;
var
...
a : array [1..n] of Real;


Заполнения массива нет:
for i:=1 to n do
read(a[i]);