Developing.ru

Код: Выделить всё

program arrays;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const N=10;
var arr:array[1..N] of integer;
var i:integer;
var sum_p:integer;  //сумма положительных элементов
var sum_otr:integer; //Сумма отрицательных
var kol_p:integer;  //Количество положительных элементов
var kol_otr:integer;   //Количество отрицательных элементов
var qw:real;         //отношение суммы положительных к отрицательным
var qq:real;         //Отношение количества положительных к отрицательным
begin
// заполнение и вывод массива
randomize;
for i:=1 to N do
 begin
   arr[i]:=random(20)-5;   //Заполнение массива случайными числами
   write(arr[i]:3);        //вывод массива
 end;
 writeln;
//----------------------------------------------

//Нахождение суммы положительных элементов
sum_p:=0;
kol_p:=0;
For i:=1 to N do
 begin
  if arr[i]>0 then
    begin
     sum_p:=sum_p+arr[i]; //сумма положительных элементов
     kol_p:=kol_p+1;      //Количество положительных элементов
     write(arr[i]:3);
    end;
 end;
//----------------------------------------------
 //Нахождение суммы отрицательных элементов
sum_otr:=0;
kol_otr:=0;
For i:=1 to N do
 begin
  if arr[i]<0 then
    begin
     sum_otr:=sum_otr+arr[i]; //сумма отрицательных элементов
     kol_otr:=kol_otr+1;      //Количество отрицательных элементов
    end;
 end;
//----------------------------------------------
 //отношение суммы положительных к отрицательным
 qw:=sum_p/(sum_otr*-1);
//Отношение количества положительных к отрицательным
 qq:=kol_p/(kol_otr *-1);
writeln;
 writeln;
write('koli4estvo polozhitelnih = ');
writeln(kol_p);
writeln;
write('koli4estvo otricatelnih = ');
writeln(kol_otr);
writeln;
write('summa polozhitelnih = ');
writeln(sum_p);
writeln;
write('summa otricatelnih = ');
writeln(sum_otr);
writeln;
write('otnoshenie koli4estva polozhitelnih k otricatelnim = ');
writeln(qq);
writeln;
write('otnoshenie summi polozhitelnih k otricatelnim = ');
writeln(qw);
readln;
end.