Найти сумму элементов, имеющих нечетное значение

@24ps · Регистрация: 01.10.2015

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

Найти сумму элементов, имеющих нечетное значение;

@erl27 · 03.11.2015, 02:09

Pascal

var
  A: array[1..100] of integer;
  i, n, sum: integer;
 
begin
  sum := 0;
  randomize;
  n := random(100);
  for i := 1 to n do begin
    a[i] := random(100);
    if odd(a[i]) then sum := sum + a[i];
    write(' ', a[i])
  end;
  writeln;
  if sum > 0 then writeln('Сумма нечетных чисел = ', sum)
  else writeln('Нечетных чисел нет');
  readln
end.

@24ps 1 / 1 / 1 Регистрация: 01.10.2015 Сообщений: 36
		1
	Найти сумму элементов, имеющих нечетное значение 02.11.2015, 16:01. Показов 1895. Ответов 1 Метки нет (Все метки) Найти сумму элементов, имеющих нечетное значение; 0

	03.11.2015, 02:09

Найти сумму элементов, имеющих нечетное значение

Решение