Вопрос по информатике:
Дан одномерный массив, который содержит не более 10 целых чисел. Найти среднее арифметическое элементов, которые стоят на нечетных местах.
- 18.02.2018 06:25
- Информатика
- remove_red_eye 13195
- thumb_up 85
Ответы и объяснения 1
uses crt;
var
i, k: integer;
a,k2: real;
mas, ma: array [1..10] of integer;
begin
randomize;
write (' razmer massiva = '); readln (k);
for i:=1 to k do
mas[i]:= random (10);
for i:=1 to k do
write (mas[i],' ');
for i:=1 to k do
if i mod 20 then a:= mas[i]+a;
writeln;
if k mod 2 0 then begin k:=k+1; k2:= k/2; end else k2:= k/2;
a:= a/k2;
write ('sredn znach = ',a);
readkey;
end.
- 19.02.2018 04:27
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.