• Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 2 и выводи на экран количество элементов, равных 1

Ответы 1

  • var ar:array[1..10] of integer;i,k:integer;begin;randomize;writeln('Array:');for i:=1 to 10 dobegin;ar[i]:=random(3);write(ar[i]:4);if ar[i]=1 then inc(k);end;writeln;writeln(k);end.
    • Автор:

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

Войти через Google

или

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

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

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