• помогите с информатикой. В масиве подсчитать количество отрицательных кратных 3 и произведение положительных меньше 10

Ответы 1

  • Program n1;var a: array[1..12] of integer;k,i: integer;p: real;beginrandomize;k:=0;p:=1;write('исходный массив: ');for i:=1 to 12 dobegina[i]:=random(21)-10;write(a[i],' ');if (a[i]<0) and (a[i] mod 3=0) then k:=k+1;if (a[i]<10) and (a[i]>0) then p:=p*a[i]; end;writeln;writeln(k);writeln(p); end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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