ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ПОЖАЛУЙСТА.я пропустила тему.ПО ПАСКАЛЬ.!!
Дан одномерный массив А состоящий из 10 элементов.Вывести на экран исходную таблицу и резултат программы.
Найти произведения элементов массива А. удовлетворяющих условию:
c<=A[i]<=d.

2

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

2013-02-25T18:07:20+00:00

program kvcjkdsnfckls;

uses crt;

var a:array[1..10] of integer;

       i,c,d,p,j:integer;

begin

clrscr;

readln(c,d);

p:=1;

j:=1;

for i:=1 to 10 do

readln(a[i]);

for i:=1 to 10 do

writeln(a[i]);

for i:=1 to 10 do

if (a[i]>=c) and (a[i]<=d) then 

begin

p:=a[i]*j;

j:=p;

end;

writeln('proizavedenie=',j);

readln

end.

Честно, с таблицей не понял, но вроде все нормально. 

Программа просит ввести c и d 

Затем значения массива

Затем, по-видимому, выводится таблица

Затем высчитывается произведение подходящих элементов, и оно выводится

 

2013-02-25T18:08:43+00: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.