дан массив найти произведение отрицательных элементов и кратных 7

1

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

2013-03-17T12:52:54+04:00

Program Massiv;

Uses Crt;

const n=10 {размер массива} 

var i,k:integer;

       a:array[1..n] of integer;

begin

     clrscr;

     write('Введите элементы массива:' );

     k:=1  

     for i:=1 to n do

            begin

                 readln (a[i]);

                 if (a[i]<0) and (a[i] mod 7)=0 then k:=k*a[i];

            end;

writeln;   

write('Исходный массив:') 

 

for i:=1 to n do   write(a[i]:3);       

 

 writeln;

writeln('Произведение отрицательных элементов кратных 7:',k);

 

 readkey;

end.