ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА.я пропустила тему.

Дан одномерный массив А состоящий из 10 элементов.Вывести на экран исходную таблицу и резултат программы.

Найти произведения элементов массива А. удовлетворяющих условию:

c<=A[i]<=d.

1

Ответы и объяснения

2013-02-25T22:26:56+04:00

Если c и d задаются, как и элементы массива,то решение вот такое

Написано в Pascal.ABC:



Const N=10;

var
i,c,d,k:integer;
A:array [1..N] of integer;

Begin
k:=1;
writeln('Введите c:');
readln(c);
writeln('Введите d:');
readln(d);
writeln('Введите элементы массива:');
for i:=1 to N do read(A[i]);
for i:=1 to N do write(A[i], ' ');
for i:=1 to N do
begin
if (c <= A[i]) and (d >= A[i]) then k:=k*A[i];
end;
writeln('Произведение: ', k);
End.