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

Posted by obzor under Delphi

Определить во сколько раз количество положительных элементов в первой половине массива больше количества отрицательных элементов во второй половине массива.

newerow1989

const n=10;
var i,p1,p2:integer;
    p:array[1..n] of integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      p[ i]:=-10+Random(21);
      Write(p[ i],'  ');
   end;
   Writeln;
   Writeln;
   p1:=0;
   For i:=1 to n div 2 do
      If p[ i]>0 then
         p1:=p1+1;
   p2:=0;
   For i:=n div 2+1 to n do
      If p[ i]<0 then
         p2:=p2+1;
   Writeln(p1,'/',p2,' = ',p1/p2:5:5);
   Readln;
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)