• Заполнить массив из 13 элементов случайными числами в интервале [0, 100] и найти количество элементов массива делящихся на два без остатка.

Ответы 1

  • vara:array [1..13] of integer;i,k:integer;beginrandomize;writeln('Массив:');for i:=1 to 13 dobegina[i]:=random(101);write(a[i],' ');end;writeln;for i:=1 to 13 doif (a[i] mod 2)=0 then k:=k+1; writeln('Количество элементов делящихся на 2 без остатка: ',k);end.
    • Автор:

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

Войти через Google

или

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

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

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