• дан массив из 30 четырехзначных чисел .Числа кратные своему номеру заменить 1, в противном случае заменить 0

Ответы 2

  • В Вашей программе есть ошибки. Кроме того, описаны лишние переменные.
    • Автор:

      monkey58
    • 6 лет назад
    • 0
  • const n=30var a:array of [1..n] of integer;i,k,l:integer;beginrandomize;for i:= 1 to n do a[i]:=random(9000)+1000;for i:= 1 to n do beginif a[i] mod i = 0 then a[i]:=1 else a[i]:=0;writeln(a[i]);end;end.
  • Добавить свой ответ

Войти через Google

или

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

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

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