GAECHKA
Твоя помощница в решении задач

Дан одномерный массив, вычислить сумму положительных и произведение четных членов данного массива

Дан одномерный массив а1..аn. Вычислить сумму положительных и произведение четных членов данного массива, если таких членов нет, то выдать сообщение.
0
вопрос задан

Источник


1 ответ
Решение
Взято отсюда: Вычислить сумму положительных и произведение четных членов данного массива
var
  i, N: word;
  a: array [1..100] of integer;
  k, m, sum: integer;
  pr: real;
 
begin
  randomize;
  Write('Введите кол-во элементов массива');
  Readln(N);
  sum := 0;
  pr := 1;
  k := 0;
  m := 0;
  for i := 1 to N do
  begin
    a[i] := random(100) - random(50);
    if a[i] > 0 then 
    begin
      sum := sum + a[i];
      inc(k);
    end;
    if not odd(i) then 
    begin
      pr := pr * a[i];
      inc(m);
    end;
    write(a[i]:5);
  end;
  writeln;
  if k  0 then 
    writeln('sum=', sum)
  else
    writeln('нет положительных');
  if m  0 then
    writeln('proiz=', pr)
  else
    writeln('нет четных');
end.