• Дан массив A(n). Найти сумму элементов на чётных местах и произведение элементов, кратных 3.

Ответы 1

  • const n=10; var a:array[1..n] of integer;i,s,p:integer;beginwriteln('Исходный массив:');for i:=1 to n do begin a[i]:=random(21)-10; write(a[i]:4); end;writeln;s:=0; p:=1;for i:=1 to n do begin if i mod 2 = 0 then s:=s+a[i]; if a[i] mod 3 = 0 then p:=p*a[i]; end;writeln('s = ',s,'   p = ',p);end.Пример:Исходный массив:  -4  -9   2  -2   4   6  -8  -5   7  -5s = -15   p = -54
    • Автор:

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

Войти через Google

или

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

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

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