• Дан массив из 30 элементов.Элементы заполняются генератором случайных чисел в диапазоне от 0 до 1000. Найти и вывести все элементы массива,которые кратны 5 и являются нечётными

Ответы 1

  • //PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)const n = 30;var a:array[1..n] of integer;    i: integer;begin  for i:=1 to n do begin    a[i]:=random(1001);    if (a[i] mod 5=0) and (a[i] mod 2=0) Then write(a[i]:5);  end;end.
    • Автор:

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

Войти через Google

или

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

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

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