Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Be11a
21.01.2020 14:33 •
Информатика
Массив а вводится с клавиатуры найти среднее арифметическое его элементов с нечетными номерами.размер произвольный .решение паскаль .решите
Показать ответ
Ответ:
Rudisaleh
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 оценок)
Популярные вопросы: Информатика
zaninartur
03.04.2022 04:30
Составить программу для решения задачи. Дано 2 целых числа. Если первое число больше второго, то найти их сумму, иначе найти их произведение. *...
MamurovShavkat
07.07.2020 18:09
Движение робота по линии. Урок 1 передача данных с датчика цвета на монитор движение вперед на пять оборотов начало передача данных с гироскопического датчика на монитор...
nikysha04
22.04.2023 15:17
Используя таблицу истинности операции «НЕ» (см. учебник), определите, как можно упростить выражение не(не A)...
Pyben
31.07.2021 15:35
Каким образом взаимосвязаны между собой составляющие информационной безопастности Приведите собственные примеры...
fistahka336
12.06.2020 14:16
Венн диаграммасымен сымды және сымсыз желілерді салыстырындар...
bananchik9
29.01.2022 05:08
Скільки гравець у футболі має отримати жовтих карток щоб його вилучили з поля? 6,2,4...
vladkorkin75
15.11.2022 10:27
Укажи относительно каких тел ученик, читающий дома книгу, находится в покое. ответ (отметь соответствующий вариант): проезжающих мимо дома машин дома...
Nicky133
15.11.2022 10:27
Написать сочинение–рассуждение «Почему я люблю (не люблю) зиму?»,...
Санёк1616
24.07.2021 23:33
Скульптура какого животного установлено на месте битвы при херонее?...
Юля1ьагааащщн
15.11.2022 10:27
Оксид углерода(IV) реагирует с веществами: NaNO3 Ca(OH)2 H2SO3 Na2O...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.