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

Ответы 3

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

      lawson
    • 6 лет назад
    • 0
  • constn=20;vara:array[1..n]of integer;i:integer;p:real;beginp:=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.               
    • Автор:

      whiz
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years