Question

Дано масив а от 1 до 10 визначити 1)суму та добуток додатніх елементов 2)визначити суму та добуток та кількість додатніх елементів

Answer 1

Var a:array [1..10] of integer;
var i:integer;
var sum, mul, n, t:integer;

begin
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do begin
    readln(a[i]);-
  end;
 
  sum := 0;
  mul := 0;
  n := 0;
 
  for i := 1 to 10 do begin
    t := a[i];
    if t > 0 then begin
      sum := sum + t;
      if mul = 0 then begin
        mul = t;
      else begin
        mul := mul * t;
      end;
      n := n + 1;
    end;
  end;
 
  writeln('Сумма: ', sum);
  writeln('Произведение: ', mul);
  writeln('Количество: ', n);
end.