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

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<br>   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.

Comments

Спасибо

Answer 2

//Pascal
//4)
var
  A: array [1..255] of integer;
  i, N: byte;
  sum, count: integer;
begin
  sum := 0; count := 0;
  write('Введите количество элементов в массиве: ');
  readln(N);
  writeln('Заполнение массива.');
  for i := 1 to N do
  begin
    write('A[',i,'] = '); readln(A[i]);
    if A[i] < 50 then
    begin
       sum := sum + A[i];
       count := count + 1;
    end;
  end;
  writeln('Среднее арифметическое = ', sum/count);
end. 

//5)
var
  A: array [1..255] of integer;
  i, N: byte;
  mult: real;
begin
  mult := 1;
  write('Введите количество элементов в массиве: ');
  readln(N);
  writeln('Заполнение массива.');
  for i := 1 to N do
  begin
    write('A[',i,'] = '); readln(A[i]);
    if ((A[i] mod 2 = 0) and (A[i] > 0)) then
    mult := mult * A[i];
  end;
  writeln('Произведение четных положительных = ', mult);
end. 

---

---

Comments

Спасибо