Вопрос по информатике:
Массив А вводится с клавиатуры Найти среднее арифметическое его элементов с нечетными номерами.Размер произвольный .решение паскаль .решите пожалуйста
- 08.08.2018 15:05
- Информатика
- remove_red_eye 15932
- thumb_up 9
Ответы и объяснения 1
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.
- 09.08.2018 11:09
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.