Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ВладыкаМор
03.05.2021 21:25 •
Информатика
Массив а вводится с клавиатуры найти среднее арифметическое его элементов с нечетными номерами.размер произвольный .решение паскаль .решите
Показать ответ
Ответ:
sunksy
03.07.2020 21:23
Program asd;
USES crt;
Const n=5;
VAR A:array[1..n] of integer;
i,ind:integer; s,sr:real;
BEGIN
Clrscr;
Writeln('Заполните массив числами: ');
For i:=1 to n do
begin
Write('A[',i,']: ');
Readln(A[i]);
end;
For i:=1 to n do
begin
Ind:=i;
If not Ind mod 2 = 0 then
begin
S:=S+A[i];
Sr:=S/n;
end;
end;
Writeln('Ср. ар. элементов с нечетными индексами: ',Sr);
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
lina160107
29.04.2021 21:42
Информатика тест голдна мавпочка...
мотя104
26.06.2020 17:00
Мне к завтрашнему дню надо составить программу в pascal мне решить первое возраст коли x лет возраст миши y лет найти их средний возраст а также определить разницу...
Вадім2006
31.05.2023 19:59
Даны значения целочисленных переменных : a=10 b=20. чему будет равно значение логической переменной rez после выполнения операции присваивания? a) rez: =(a=10) or...
Xoroshiyi
31.05.2023 19:59
Напечатать числа следующим образом 25 25.5 24.8 26 26.5 25.8 . . 35 35.5 34.8 в паскале...
малая188
15.08.2020 12:22
Примеры ситуаций в которых информация собирается обрабатывается создается запоминается изменяется копируется передается принимается разрушается делится на части...
08077987979
15.08.2020 12:22
Информациональный объём фото составляет 3 мегабайта,сколько фото поместится флешки объема 16 гигов...
MDL123
27.01.2021 00:45
А) если (а или (b и то d; б) если (не а и не b), то (с или d); в) (а или b) тогда и только тогда, когда (с и не d)...
зюзя24
05.03.2023 04:14
ОПредели последовательность Сказки слепой музыкант -обилие впечетлений -Мальчик действительно слеп и безнадежен -ребенок родился в богатой семье -не стал бы напрасно...
MafiiMan7204720
20.05.2023 18:06
9-тапсырма. «Сұрақ сандық» ойыны Екі топқа бөлініңдер. Ортаға екі сандық қойылады. Оқушылар мәтінбойынша 6 сұрақ құрастырып, сандыққа салады. Екі топ сандық алмасады.Топтағы...
idalia444
09.08.2022 19:56
1. Найдите область определения данной функции у=х2-3х-4х−2√ у=3х2-7х+2 у=2х+х+5√ 2. Найдите область значений данной функции у= 0, 5х2+1,5 х-2,5 .Найдите нули функции:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
USES crt;
Const n=5;
VAR A:array[1..n] of integer;
i,ind:integer; s,sr:real;
BEGIN
Clrscr;
Writeln('Заполните массив числами: ');
For i:=1 to n do
begin
Write('A[',i,']: ');
Readln(A[i]);
end;
For i:=1 to n do
begin
Ind:=i;
If not Ind mod 2 = 0 then
begin
S:=S+A[i];
Sr:=S/n;
end;
end;
Writeln('Ср. ар. элементов с нечетными индексами: ',Sr);
END.