Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
LEXUS2705
18.04.2022 10:22 •
Информатика
Массив а вводится с клавиатуры найти среднее арифметическое его элементов с нечетными номерами.размер произвольный .решение паскаль .решите
Показать ответ
Ответ:
shijoatova48
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 оценок)
Популярные вопросы: Информатика
бооой
10.06.2020 16:41
Как связаны мощность алфавита и разрядность двоичного кода достаточного для кодирования всех символов этого алфавита?...
4нцяулчанняашя
27.01.2022 16:09
Информационные процессы это A) Процесса строительства зданий и сооруженийБ) Процессы химической и механической очистки водыB) Процессы сбора хранения обработки,...
Щащашчщ
30.08.2020 18:16
36 31 45- 25 34 21 33 21 34 31 46 17 62 31 31 11 24 16 11 34 17 11 26 кодтан шығар...
fill1337
16.02.2021 13:21
20 . у меня не работает паинт(он как бы работает,но не работает то,что надо сейчас сделать. 1.устанавливаем основной цвет желтый 2.выбрать инструмент овал 3.удерживая...
андрейка46
16.02.2022 03:06
Каковы основные источники по хунну? ! 20...
вита4321
22.07.2021 05:48
Умоляю с , долги, я не понимаю как это делать....
ahmedova3
26.12.2022 17:29
Вдвух театральных кассах было 705 билетов. когда из первой кассы продали 267 билетов, в ней осталось 123 билета. сколько билетов было в каждой кассе сначала? напишите...
abbasovamadina2
25.02.2023 03:51
Составьте 5 сложных и 5 лёгких предложений по сказке кондуит и швамбрания...
bahakendjaev11
16.08.2020 03:58
ответьте по французски на вопрос comment ecoutez vous la musique que vois aimes (2-3 предложения)и перевод напишите ответа...
Alice547
20.06.2022 05:34
Для чего имело значение в великой отечественной войне был организован секретный аэродром...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.