Код: Выделить всё
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.