• Составьте программу которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и определяет, есть ли в этом массиве хотя бы одно число, кратное трём

Ответы 6

  • Пожалуйста!
    • Автор:

      bennylong
    • 6 лет назад
    • 0
  • Ну сначала заполняем массив случайными числами в интервале [-20..20]. Затем проверяем каждый элемент массива на то, чтобы при делении числа на 3 остаток был равен 0 (нулю). За каждый элемент массива соответствующий данному условию, мы записываем в переменную c по одной единице (1). Если наш счетчик (переменная с) больше нуля (0), тогда выводим количество чисел кратных трём (3), иначе пишем, что в данном массиве нет чисел, кратных трём.
  • Спасибо огромное!!!
    • Автор:

      paco
    • 6 лет назад
    • 0
  • У меня получилось 4 числа кратные трем
    • Автор:

      jimmy57
    • 6 лет назад
    • 0
  • когда я проверил на компьютере
  • var  a: array [1..16] of integer;  i, c: integer;  beginfor i:=1 to 16 do  begin    a[i]:=random(-20,20);    Writeln('a[',i,']= ',a[i]);  end;  for i:=1 to 16 do  if (a[i] mod 3 = 0) then    c:=c+1;    if c > 0 then  Writeln('В получившемся массиве ', c, ' чисел, кратных трём.')else  Writeln('В данном массиве нет чисел, кратных трём.');  end.
  • Добавить свой ответ

Войти через Google

или

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

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

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