• Дан массив. Создать новый массив из элементов предыдущего увеличением их на 10 и найти произведение положительных элементов второго массива. (должно работать в паскале).
    Первый раз прошу тут о помощи.. сама никак не могу додуматься.

Ответы 1

  • program chik;var a:array[1..100]of integer;n,i,p:integer;beginwriteln('Введите кол-во элементов');for i:=1 to n dobeginread(a[i]);a[i]:=a[i]+10;end;p:=1;for i:=1 to n dobeginwrite(a[i],' ');if(a[i]>0)then p:=p*a[i];end;writeln;writeln(p,' -произведение пол,чисел 2 массива');end.
  • Добавить свой ответ

Войти через Google

или

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

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

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