Ответ: целую программу, а то я тупая и не пойму
Ответ: program mr_zerkalka;uses crt;const n=5;var a,i,p:integer;beginfor i:=1 to n doreadln(a[i]);for i:=1 to n doif a[i] mod 5 = 0 thenp:=p*a[i];writeln(‘произ элемент=’,p);end.
Ответ: целую программу, а то я тупая и не пойму
Ответ: program mr_zerkalka;uses crt;const n=5;var a,i,p:integer;beginfor i:=1 to n doreadln(a[i]);for i:=1 to n doif a[i] mod 5 = 0 thenp:=p*a[i];writeln(‘произ элемент=’,p);end.