Задать вопрос Регистрация
Помочь другим

  • РЕБЯТА ПОМОГИТЕ!!! Заполнить массив случайными числами из промежутка (1-100) и определить в массиве C[1..30]кол-во чисел кратным 3

Ответы 1

  • Пишу как в паскале:

     

    Var i:integer;

    c:array[1..100] of integer;

    begin

     randomize;

    for i:=1 to 100 do c[i]:=random(100)+1;

    end.

     

    Про кратные 3 (считая что значения массива уже заданы):

    Var i,a:integer;

    c:array[1..30] of integer;

    begin

    a:=0;

    for I:=1 to 30 do if (c[i]mod3)=0 then a:=a+1; 

    end.

     

    a - количество чисел, кратных 3. (c[i]mod3) - остаток деления c[i] на 3.

     

     

     

       

    • Автор:

      oscar60
    • 5 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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