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

@Малинка · Регистрация: 26.12.2012

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

Всем приветик)

Извините что так много задачек, но поймите сложновато мне с программированием((
за конфетку

1)Задан массив С(20). Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных компонентов массива.

Заранее спасибо*

@ermolay · 26.12.2012, 08:26

Pascal

const
  n=20;
var
  a: array[1..n] of integer;
  i,j,k1,k2: byte;
  sr1,sr2: real;
begin
  sr1:=0; sr2:=0; k1:=0; k2:=0;
  randomize;
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=random(199)-99;
    write(a[i]:4);
    if a[i]>0 then
    begin
      sr1:=sr1+a[i];
      inc(k1);
    end else
    if a[i]<0 then
    begin
      sr2:=sr2+a[i];
      inc(k2);
    end;
  end;
  writeln;
  writeln('Среднее положительных массива = ',sr1/k1:0:2);
  writeln('Среднее отрицательных массива = ',sr2/k2:0:2);
  readln;
end.

@Малинка 0 / 0 / 0 Регистрация: 26.12.2012 Сообщений: 17
		1
	Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных компонентов массива 26.12.2012, 03:08. Показов 1624. Ответов 1 Метки нет (Все метки) Всем приветик) Извините что так много задачек, но поймите сложновато мне с программированием(( за конфетку 1)Задан массив С(20). Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных компонентов массива. Заранее спасибо* 0

	26.12.2012, 08:26

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

Решение