В массиве найти среднее арифметическое положительных элементов массива, а также произведение и количество отрицательных элементов

@wersun · Регистрация: 15.12.2013

Студворк — интернет-сервис помощи студентам

В массиве Х(N) найти среднее арифметическое положительных элементов массива, а также произведение и количество отрицательных элементов. Одномерные массивы Помогите

@_Developer · 17.12.2013, 13:05

Pascal

var
  n: word;
  sredPlus, proizOtr: integer;
  kolOtr, kolPlus: word;
 
begin
  proizOtr := 1;
  write('Введите размер массива: ');
  readln(n);
  var x := new integer[n + 1];
  write('Исходный массив: ');
  for var i := 1 to n do
  begin
    x[i] := Random(-100, 100);
    write(x[i]:5);
    if (x[i] > 0) then
    begin
      Inc(kolPlus);
      sredPlus := sredPlus + x[i];
    end
    else if (x[i] < 0) then 
    begin
      Inc(kolOtr);
      proizOtr *= x[i];
    end;
  end;
  writeln;
  writeln('Среднее арифметическое положительных элементов: ', sredPlus / kolPlus);
  writeln('Произведение отрицательных: ', proizOtr, ', кол-во: ', kolOtr);
end.

@wersun 0 / 0 / 0 Регистрация: 15.12.2013 Сообщений: 4
		1
	В массиве найти среднее арифметическое положительных элементов массива, а также произведение и количество отрицательных элементов 15.12.2013, 14:43. Показов 3286. Ответов 1 Метки нет (Все метки) В массиве Х(N) найти среднее арифметическое положительных элементов массива, а также произведение и количество отрицательных элементов. Одномерные массивы Помогите 0

	17.12.2013, 13:05

Опции темы

В массиве найти среднее арифметическое положительных элементов массива, а также произведение и количество отрицательных элементов

Решение