Массив: Вычислить сумму чисел, порядковые номера которых являются нечетными числами.

@WaK · Регистрация: 14.04.2013

Студворк — интернет-сервис помощи студентам

Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются нечетными числами.
Помогите!

@Puporev · 15.04.2013, 09:34

Pascal

s:=0;
for i:=1 to n do
 begin
  readln(a);
  if odd(i) then s:=s+a
 end;
write('Сумма чисел с нечетными индексами=',s);

@WaK · 15.04.2013, 10:10 **[ТС]**

Сообщение от Puporev

Pascal

s:=0;
for i:=1 to n do
 begin
  readln(a);
  if odd(i) then s:=s+a
 end;
write('Сумма чисел с нечетными индексами=',s);

А сам массив где?

@Puporev · 15.04.2013, 10:13

Сообщение от WaK

А сам массив где?

А зачем тебе массив, в условии про него ни слова.

@WaK · 15.04.2013, 10:15 **[ТС]**

Сообщение от Puporev

А зачем тебе массив, в условии про него ни слова.

Дело в том, что препод говорит мне сделать массив.

@Puporev · 15.04.2013, 10:22

Ну так и делай, какая разница?

Добавлено через 4 минуты

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,s:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
s:=0;
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
  if odd(i) then s:=s+a[i];
 end;
writeln;
write('Сумма чисел с нечетными индексами=',s);
readln
end.

@WaK 1 / 1 / 0 Регистрация: 14.04.2013 Сообщений: 40
		1
	Массив: Вычислить сумму чисел, порядковые номера которых являются нечетными числами. 15.04.2013, 09:12. Показов 1404. Ответов 5 Метки нет (Все метки) Задана последовательность N вещественных чисел. Вычислить сумму чисел, порядковые номера которых являются нечетными числами. Помогите! 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	15.04.2013, 10:13	4
	Сообщение от WaK А сам массив где? А зачем тебе массив, в условии про него ни слова. 0

@WaK 1 / 1 / 0 Регистрация: 14.04.2013 Сообщений: 40
	15.04.2013, 10:15 [ТС]	5
	Сообщение от Puporev А зачем тебе массив, в условии про него ни слова. Дело в том, что препод говорит мне сделать массив. 0

	15.04.2013, 10:22

Опции темы