Составьте программу которая заполняет массив B[1..16]случайными целыми числами в...

Question

Составьте программу которая заполняет массив B[1..16]случайными целыми числами в диапозоне от -10 до 20 и определяет колличество чисел кратных 5 и их

Answer 1

Var
B:array[1..16] of integer;
k, i: integer;
begin
for i:=1 to n do   begin
a[i]:=random(-10,20);
if (a[i] mod 5)=0 then begin
writeln(a[i]); writeln(i); end; end;
end.

Comments

ну вроде того.

---

можешь еще помощь ?

---

если надо, конечно, только заполнить массив рандомными числами в диапазоне и вывести индексы и числа, кратные пяти.

---

смотря, с чем.

---

пиши в личку.

---

Заполните массив 11 произвольных целыми числами,введя их с клавиатуры и найдите среди их количество и сумму отрицательных

---

я попросила в личку 0:

---

как ?

---

Заполните массив 15 произвольными числами введя их с клавиатуры и вычислите среднее арифметическое отрицательных

---

вот последняя реши пожалуйсто !