• В массиве из 10 случайных чисел поменять местами все четные на 0 и вывести получившийся массив на экран

Ответы 6

  • program p1;var a:array[1..10] of integer; i:integer;begin randomize; for i:=1 to 10 dobegin a[i]:=random(10); if (a[i] mod 2)=0 then a[i]:=0;end;for i:=1 to 10 dobegin writeln(a[i]);end; end.
  • gj;fkeqcnf =)
  • =)
  • спасибо, спас меня от 3 за четверть_)))
    • Автор:

      ericktpnb
    • 6 лет назад
    • 0
  • ))) ну тогда я в двойне рад =)
  • program p1;const  n=10;var  a:array[1..n] of integer;     i:integer;begin  randomize;  for i:=1 to n dobegin              a[i]:=random(10);              if (a[i] mod 2)=0 then a[i]:=0;end;for i:=1 to n dobegin              writeln(a[i]);end;        end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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