Вопрос по информатике:
Помогите решить задачу по програмируванию:Знайти суму 1-го ,3-го,5-го...19-го елементів масиву з 20 дійсних чисел.Будь ласка дуже потрібно.
- 15.12.2017 06:17
- Информатика
- remove_red_eye 2551
- thumb_up 8
Ответы и объяснения 1
Const n=20;
var a:array[1..n] of real;
i:integer; s:real;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:5:1);
end;
writeln;
s:=0;
for i:=1 to n do
if i mod 2 0 then s:=s+a[i];
writeln('S = ',s:5:2)
end.
Пример (для 10 чисел):
Исходный массив:
1.0 2.2 7.2 8.4 8.6 7.5 3.9 0.3 6.8 5.2
S = 27.63
- 16.12.2017 10:43
- thumb_up 48
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.