Написать программу нахождения в одномерном массиве С [1..6] произведения и количества...

Question

Написать программу нахождения в одномерном массиве С [1..6] произведения и количества элементов кратных 5
Ребят прошу помочь я тему не понял)))
Спасибо за внимание)!
Пожалуйста)

Comments

я просто вообще не догадываюсь о чем иде речь)

---

идет*

---

вы серьезно напишите?

---

я не понимаю

---

вообще

---

вот почему и попросил

---

пожалуйста

---

я без ваш не напишу нормально роботу

Answer 1

Uses Crt;

const
  n=6;
var
  i,k:byte;
  p:longint;
  a:array[1..n] of shortint;
begin
  Randomize;
  k:=0; p:=1;
  ClrScr;
  for i:=1 to n do begin
    a[i]:=Random(51)-25;  { [-25..25] }
    Write(a[i],' ');
    if a[i] mod 5=0 then begin k:=k+1; p:=p*a[i] end
    end;
  Writeln; Writeln('k=',k,', P=',p);
  ReadKey
end.

---

---

Comments

Спасибо

---

Я расцеловал с ног до головы)