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

@Schkolota · Регистрация: 16.03.2012

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

заранее всем спасибо буду признателен за любую помощь

@ermolay · 16.03.2012, 18:31

Pascal

  const
    nmax=100;
  var
    a: array[1..nmax,1..nmax] of integer;
    i,j,n,k: byte;
    pol,otr,sum: integer;
begin
  write('vvedite n: '); readln(n);
  randomize;
  pol:=0; otr:=0; sum:=0;
  for i:=0 to 0 do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(99)-49;
      write(a[i,j]:4);
      sum:=sum+a[i,j];
      if a[i,j]>0 then pol:=pol+a[i,j];
      if a[i,j]<0 then
      begin
        otr:=otr+a[i,j];
        inc(k);
      end;
    end;
    writeln;
  end;
  writeln;
  writeln('summa vseh elementov: ',sum);
  writeln('summa polojitelnih: ',pol);
  writeln('summa otricatelnih: ',otr);
  writeln('srednee otricatelnih: ',(otr/k):5:2);
  readln;
end.

@Schkolota 0 / 0 / 0 Регистрация: 16.03.2012 Сообщений: 3
		1
	Найти сумму всех элементов массива, количество положительных и отрицательных чисел и среднеарифметическое отрицательных чисел 16.03.2012, 17:37. Показов 4788. Ответов 1 Метки нет (Все метки) заранее всем спасибо буду признателен за любую помощь 0

Опции темы

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

Решение