• Дан массив заданный случайным образом. Найти s и p элементов, кратных 3-ём и положительных, кол-во всех остальных.

Ответы 1

  • const n=10; var a:array[1..n] of integer; s,p,k,i:integer; begin s:=0; p:=1; randomize; for i:=1 to n do begin a[i]:=Random(100); if (a[i]>0) and (a[i] mod 3 =0) then k:=k+1; p:=p*a[i]; s:=s+a[i]; write(a[i], ' ') end; writeln('Сумма = ',s); writeln('Произведение = ',p); writeln('Количество положительных и кратных 3-м = ',k); end.
    • Автор:

      emily85
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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