Найти сумму элементов массива, находящихся на нечётных позициях

@Lady one · Регистрация: 08.11.2013

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

Дан одномерный массив.Найти:
1) сумму элементов находящихся на нечётных позициях.

@Derendaet · 17.11.2013, 14:39

Pascal

var a:array [1..100] of integer;
    i,n,sum:integer;
begin
write('Ââåäèòå ðàçìåðíîñòü ìàññèâà: '); readln(n);
for i:=1 to n do begin
a[i]:=random(10);
write(a[i],' ');
if i mod 2=0 then sum:=sum+a[i];
end;
writeln('| Ñóììà = ',sum);
end.

@ildwine · 17.11.2013, 14:42

Pascal

const
  n = 10;
var
  a : array [1..n] of integer;
  s, i : integer;
begin
  s := 0;
  randomize;
  writeln('массив:');
  for i := 1 to n do
  begin
    a[i] := random(20) - 10;
    write(a[i]:4);
    if i mod 2 <> 0 then s := s + a[i]
  end;
  writeln;
  writeln('сумма на нечетных позициях: ', s)
end.

@Lady one · 17.11.2013, 14:44 **[ТС]**

спасибо)))

@Derendaet · 17.11.2013, 14:45

Ооу, моя считает на чётных)))

Pascal

var a:array [1..100] of integer;
    i,n,sum:integer;
begin
write('Ââåäèòå ðàçìåðíîñòü ìàññèâà: '); readln(n);
for i:=1 to n do begin
a[i]:=random(10);
write(a[i],' ');
if i mod 2<>0 then sum:=sum+a[i];
end;
writeln('| Ñóììà = ',sum);
end.

@Lady one · 17.11.2013, 14:47 **[ТС]**

я поняла)спасибо)

Найти сумму элементов массива, находящихся на нечётных позициях

Решение

Решение

@Lady one 0 / 0 / 0 Регистрация: 08.11.2013 Сообщений: 8
		1
	Найти сумму элементов массива, находящихся на нечётных позициях 17.11.2013, 14:34. Показов 1547. Ответов 5 Метки нет (Все метки) Дан одномерный массив.Найти: 1) сумму элементов находящихся на нечётных позициях. 0

@Lady one 0 / 0 / 0 Регистрация: 08.11.2013 Сообщений: 8
	17.11.2013, 14:44 [ТС]	4
	спасибо))) 0

@Lady one 0 / 0 / 0 Регистрация: 08.11.2013 Сообщений: 8
	17.11.2013, 14:47 [ТС]	6
	я поняла)спасибо) 0