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

@Berry050 · Регистрация: 10.07.2013

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

3определите процентное содержание в массиве отрицательных чисел. Количество элементов в массиве вводится с клавиатуры.

@MicM · 16.07.2013, 19:08

Pascal

const
  nmax = 50;
var
  a:array [1..nmax] of integer;
  i,n,k:integer;
begin
  repeat
    write ('Razmer massiva: ');
    readln(n);
  until n in [1..nmax];
  randomize;
  k:=0;
  for i:=1 to n do
    begin
       a[i]:=random(19)-9;
       write (a[i],' ');
       if a[i]<0 then k:=k+1;
    end;
  writeln;
  writeln ('Отрицательных чисел: ',k*100/n,'%');
  readln;
end.

@Berry050 0 / 0 / 0 Регистрация: 10.07.2013 Сообщений: 21
		1
	Определите процентное содержание в массиве отрицательных чисел 16.07.2013, 19:02. Показов 1307. Ответов 1 Метки нет (Все метки) 3определите процентное содержание в массиве отрицательных чисел. Количество элементов в массиве вводится с клавиатуры. 0

	16.07.2013, 19:08

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

Решение