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

Question

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

Answer 1

Var
  a: array [1..16] of integer;
  i, c: integer;
 
begin
for 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.

Comments

А программа если есть числа кратные трем

---

Здесь он будет говорить сколько чисел кратных трём или если их нет, то скажет что их и вовсе нет

---

спасибо

---

а можете подробно описать решение программы? что бы я мог объяснить ее

---

Пожалуйста!

---

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

---

Спасибо огромное!!!

---

У меня получилось 4 числа кратные трем

---

когда я проверил на компьютере