Дан массив из N элементов. Нужно найти сумму элементов с четными номерами и отдельно-с нечетными номерами

@Nike91 · Регистрация: 19.11.2014

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

Помогите сделать

@ZX Spectrum-128 · 22.11.2014, 10:50

Pascal

const
  n = 20;
 
Type
  mas = array [1 .. n] of real;
var
  a: mas;
  i: integer;
  sumn, sumc: real;
 
begin
  randomize;
  sumn := 0;   sumc := 0;
  writeln('Исходный массив:');
  for i := 1 to n do
  begin
    a[i] := random*n;
    write(a[i]:6:2);
    if i mod 2 = 0 then
      sumn := sumn + a[i]
    else
      sumc := sumc + a[i]
  end;
  writeln;
  writeln('Сумма элементов с четными номерами = ', sumc:0:2);
  writeln('Сумма элементов с нечетными номерами = ', sumn:0:2);
 
  readln;
 
end.
-

@Nike91 12 / 1 / 0 Регистрация: 19.11.2014 Сообщений: 42
		1
	Дан массив из N элементов. Нужно найти сумму элементов с четными номерами и отдельно-с нечетными номерами 21.11.2014, 19:29. Показов 8610. Ответов 1 Метки нет (Все метки) Помогите сделать 0

Опции темы

Дан массив из N элементов. Нужно найти сумму элементов с четными номерами и отдельно-с нечетными номерами

Решение