• Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Посчитать общее количество элементов, кратных 3 и нечетных элементов и вывести на экран

Ответы 1

  • Program Titan;var h,b,i,x,y:integer;a:array[-100..100] of integer;beginRandomize;x:=100;y:=-100;for i:=1 to 30 do begina[i]:=random(x-y+1)+y;write(a[i],' ');end;for i:=1 to 30 do beginif ((a[i] mod 3)=0)and (((a[i] mod 2)<>0)) then beginb:=b+1;end;end;writeln;writeln('Количество равно ',b);writeln;end.
  • Добавить свой ответ

Войти через Google

или

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

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

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