Найти сумму и количество четных элементов массива, стоящих на нечетных местах

@madridreal · Регистрация: 09.04.2015

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

Найти сумму и количество четных элементов массива Р(13), стоящих на нечетных местах

@Joy · 15.04.2015, 14:11

Pascal

var
  p:array[1..13] of integer;
  s,i,n:integer;
begin
  randomize;
  write('original array:');
  for i:=1 to 13 do begin
    p[i]:=random(100);
    write(p[i]:4);
    if odd(i) and (not odd(p[i])) then begin
      n:=n+1;
      s:=s+p[i];
    end;
  end;
  writeln; 
  writeln('N=',n,' S=',s);
  readln;
end.

@madridreal 0 / 0 / 0 Регистрация: 09.04.2015 Сообщений: 3
		1
	Найти сумму и количество четных элементов массива, стоящих на нечетных местах 15.04.2015, 13:11. Показов 2420. Ответов 1 Метки нет (Все метки) Найти сумму и количество четных элементов массива Р(13), стоящих на нечетных местах 0

Опции темы

Найти сумму и количество четных элементов массива, стоящих на нечетных местах

Решение