Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • 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.

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years