Question

Помогите пожалуйста
4. Вычислить среднее арифметическое всех элементов массива
A, которые меньше, чем 50.
5. Вычислить произведение всех чётных положительных элементов
массива A.
Паскаль

Answer 1

var
 i,n,k,j:longint;
 a:array[1..100] of integer;
begin
 write('Write size array: '); readln(n);
 for i:=1 to n do
  begin
   a[i]:=Random(100)-20;
   write(a[i]:3);
  end;
  writeln;

 k:=0;  // 4 задание
 j:=0;
 for i:=1 to n do
  if a[i]<50
   then
    begin
     k:=k+a[i];
     j:=j+1;
    end;
 writeln(k/j:0:1);

 k:=1;     // 5 задание
 for i:=1 to n do
  if (a[i] mod 2=0) and (a[i]>0)
   then k:=k*a[i];
 writeln(k);

 readln
end.

Answer 2

Спасибо