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

Ответы 1

  • VAR a:array[1..10] of integer;        i,s:integer;BEGIN    s:=0;    for i:=1 to 10 do        begin             a[i]:=random(3);            if a[i]=1 then s:=s+1        end;    writeln ('Массив a: ');    for i:=1 to 10 do write (a[i],' ');    writeln;    writeln ('Элементов массива, равных одному: ',s)END.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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