Дан массив целых чисел. Найти сумму ЧЕТНЫХ элементов и ПРОИЗВЕДЕНИЕ элементов, которые оканчиваются на цифру 5.
Answers & Comments
MrZerkalka
Program mr_zerkalka; uses crt; const n=5; var a,i,p:integer; begin for i:=1 to n do readln(a[i]); for i:=1 to n do if a[i] mod 5 = 0 then p:=p*a[i]; writeln('произ элемент=',p); end.
1 votes Thanks 1
chtozadasha
целую программу, а то я тупая и не пойму
Answers & Comments
uses crt;
const n=5;
var a,i,p:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
if a[i] mod 5 = 0 then
p:=p*a[i];
writeln('произ элемент=',p);
end.