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

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

Задать свой вопрос
2 ответа
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]lt;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]gt;0)
   then k:=k*a[i];
 writeln(k);

 readln
end.

Маргарита Пашерстник
Спасибо
//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] lt; 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] gt; 0)) then
    mult := mult * A[i];
  end;
  writeln('Произведение четных положительных = ', mult);
end

Елена Дульчевская
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт