Пожалуйста помогите... очень срочно... защищаю четверть... плиз. Дан целочисленный массив , подсчитать произведение элементов кратных 3, порядковые номера которых кратны 5
Const n=20; var a:array[1..n]of integer; i:integer; p:real; begin p:=1; for i:=1 to n do readln (a[i]); writeln; for i:=1 to n do begin write (a[i]:4); if (a[i] mod 3=0)and(i mod 5=0)then p:=p*a[i]; end; writeln; writeln('P: ',p); end.
Спасибо огромнейшее...просто от души благодарю)
ага