• дан одномерный массив из 20 целых чисел найти сумму и проищвеедние тех элементов которые оканчсиваются на 5

Ответы 1

  • const n=20;var a:array[1..n] of integer;s,p,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51); write(a[i],' '); end;writeln;s:=0; p:=1;for i:=1 to n do if a[i] mod 10 = 5 then begin s:=s+a[i]; p:=p*a[i]; end;writeln('s = ',s,' p = ',p);end.Пример (для n=10):18 43 5 30 46 39 21 26 19 25 s = 30 p = 125
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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