Создать одномерный числовой массив

26.02.2010, 12:24. **Показов** 1193. **Ответов** 1

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

Создать одномерный числовой массив из n элементов. Затем найти сумму элументов, стоящих на нечетных местах и вывести его на экран.1- Математичиское обоснование. 2- Бдлк схема. 3- Использование алгоритма с помощью формы. 4- Програмирование

@Inadequate · 26.02.2010, 16:40

Pascal

uses
  Crt;
const
  N = 10;
var
  a: array [1..N] of integer;
  i,sum: integer;
begin
  ClrScr;
  sum := 0;
  for i := 1 to N do
  begin
    a[i] := Random(8) - 4;
    if odd(i) then
      Inc(sum, a[i]);
    write(a[i],' ')
  end;
  WriteLn;
  WriteLn('Result: ', sum);
  ReadLn
end.

Пётр.
		1
	Создать одномерный числовой массив 26.02.2010, 12:24. Показов 1193. Ответов 1 Метки нет (Все метки) Создать одномерный числовой массив из n элементов. Затем найти сумму элументов, стоящих на нечетных местах и вывести его на экран.1- Математичиское обоснование. 2- Бдлк схема. 3- Использование алгоритма с помощью формы. 4- Програмирование

	26.02.2010, 16:40

Создать одномерный числовой массив

Решение