Помогите пожалуйста решить в Делфи
Составить процедуру, возвращающую значение TRUE, если в первом из двух заданных одномерных массивов длиной N количество отрицательных элементов окажется больше, чем во втором, и значение FALSE в противном случае.Использовать такую процедуру для двух заданных массивов и вывести результат ее работы. Заранее всем благодарен, кто ответил мне на данный вопрос, но я полный чайник в программировании и не сочтите за наглость попрошу если кто может сделать программу целиком с выводом её работы. Заранее всем спасибо и благодарен тем, кто уже ответил!
Даны два положительных действительных числа А и В, число А округлить до целого числа С, дробный часть числа В отбросить.
Код:
program SimpleWork;
{$APPTYPE CONSOLE}
uses
SysUtils;
TYPE arrayType = array of integer;
var
array1 , array2: arrayType;
procedure inputElemnets(var mas : arrayType; n: Integer);
var i : Integer;
begin
for i:=1 to n do
begin
write('Please enter element #',i,':');
readln(mas[i]);
end;
end;
procedure outputArray(var mas : arrayType ; n : Integer);
var i : Integer;
begin
for i:=1 to n do
write(mas[i],#9);
writeln;
end;
function countingElemnets(var mas1 , mas2 : arrayType; n : Integer):boolean;
var i , count1 , count2 : Integer;
begin
count1 := 0;
count2 := 0;
for i := 1 to n do
begin
if mas1[i]<0
then
inc(count1);
if mas2[i]<0
then
inc(count2);
end;
if count1 > count2
then
result := true
else
result := false;
end;
var N : Integer;
begin
randomize;
writeln('Please enter the number of arrays elements - N');
readln(N);
SetLength(array1,N);
SetLength(array2,N);
inputElemnets(array1,N);
inputElemnets(array2,N);
outputArray(array1,N);
outputArray(array2,N);
writeln(countingElemnets(array1,array2,N));
readln;
end.
{$APPTYPE CONSOLE}
uses
SysUtils;
TYPE arrayType = array of integer;
var
array1 , array2: arrayType;
procedure inputElemnets(var mas : arrayType; n: Integer);
var i : Integer;
begin
for i:=1 to n do
begin
write('Please enter element #',i,':');
readln(mas[i]);
end;
end;
procedure outputArray(var mas : arrayType ; n : Integer);
var i : Integer;
begin
for i:=1 to n do
write(mas[i],#9);
writeln;
end;
function countingElemnets(var mas1 , mas2 : arrayType; n : Integer):boolean;
var i , count1 , count2 : Integer;
begin
count1 := 0;
count2 := 0;
for i := 1 to n do
begin
if mas1[i]<0
then
inc(count1);
if mas2[i]<0
then
inc(count2);
end;
if count1 > count2
then
result := true
else
result := false;
end;
var N : Integer;
begin
randomize;
writeln('Please enter the number of arrays elements - N');
readln(N);
SetLength(array1,N);
SetLength(array2,N);
inputElemnets(array1,N);
inputElemnets(array2,N);
outputArray(array1,N);
outputArray(array2,N);
writeln(countingElemnets(array1,array2,N));
readln;
end.