63

1) Определить средние арифметические элементы с четным индексом…

mariya 08 марта 2023

1) Определить средние арифметические элементы с четным индексом и среднее арифметическое с нечетныминдексом.

категория: информатика

50

Uses crt; const N=30; var mas: array[1… N] of integer; i,sum1, sum2,k1,k2: integer; sr1,sr2: real; beginfor i: =1 to N do readln (mas[i]); for i: =1 to N do if i mod 2=0 then begin sum1: =sum1+mas[i]; inc (k1); end else begin sum2: =sum2+mas[i]; inc (k2); end; writeln; sr1: =sum1/k1; writeln ('С четными индексами: ',sr1); sr2: =sum2/k2; writeln ('С нечетными индексами: ',sr2); end.

пользователи выбрали этот ответ лучшим

Знаете другой ответ?
Другие вопросы по информатике

ПОПУЛЯРНОЕ
Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...