Пожалуйста помогите... очень срочно... защищаю четверть... плиз. Дан целочисленный массив...

0 голосов
18 просмотров

Пожалуйста помогите... очень срочно... защищаю четверть... плиз. Дан целочисленный массив , подсчитать
произведение элементов кратных 3, порядковые номера которых кратны 5


Информатика (90 баллов) | 18 просмотров
Дан 1 ответ
0 голосов

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.
               

(9.6k баллов)
0

Спасибо огромнейшее...просто от души благодарю)

0

ага