В одномерном числовом массиве найти суммы элементов по заданным условиям

@Максим098 · Регистрация: 26.02.2017

В одномерном числовом массиве найти: а) сумму всех элементов, стоящих на четных местах; б) сумму всех элементов, имеющих нечетное значение.

@Alexandr212 · 02.04.2017, 12:09

Pascal

var
  A: array [1..100] of integer;
  sa, sb, i, n: integer;
 
begin
  randomize;
  readln(n);
  for i := 1 to n
  do 
  begin
    A[i] := random(50);
    write(A[i], ' ');
    if A[i] mod 2 <> 0
      then inc(sb, A[i]);
    if i mod 2 = 0
      then inc(sa, A[i])
  end;
  writeln;
  writeln('a) ', sa);
  writeln('b) ', sb);
end.

@Максим098 0 / 0 / 0 Регистрация: 26.02.2017 Сообщений: 101
		1
	В одномерном числовом массиве найти суммы элементов по заданным условиям 02.04.2017, 12:03. Просмотров 1227. Ответов 1 Метки нет (Все метки) В одномерном числовом массиве найти: а) сумму всех элементов, стоящих на четных местах; б) сумму всех элементов, имеющих нечетное значение. 0

Опции темы

В одномерном числовом массиве найти суммы элементов по заданным условиям

Решение