vas9lolikp7t3ae
Опубликовано 6 лет назад по предмету Информатика от vas9lolikp7t3ae


Составить программу вычисления произведения положительных и суммы отрицательных элементов массива A.проверить работу программы на заданном массиве A(11). На паскале

  1. Ответ
    Ответ дан Рузкый
    program p1;uses crt;var a:array[1..11] of integer;i,p,s:integer;beginfor i:=1 to 11 do begin a[i]:=random(30)-10; write(a[i]:4); end;    p:=1; s:=0;  for i:=1 to 11 do begin    If a[i]>0 then begin      p:=p*a[i];     end;          If a[i]<0 then      s:=s+a[i];      end;writeln;writeln('Произведение  :',p);writeln('Сумма :',s);end.
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц