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

+ 0 -

Azil

20 сент. 2014 г., 2:00:03 (9 лет назад)

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 

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

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

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

+ 0 -

Дарьяна25

20 сент. 2014 г., 3:18:57 (9 лет назад)

Если 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.