Дан массив целых чисел a1,.....aN выяснить каких элементов в массиве больше положительных или отрuцательных решение Pascal.
Ответы
var
a:array of integer;
i,count,n:integer;
begin
randomize;
count:=0;
readln(n);
setlength(a,n);
for i:=0 to n-1 do
begin
a[i]:=random(21)-10;
write(a[i]:4);
if a[i]<0 then inc(count);
if a[i]=0 then n:=n-1;
end;
writeln;
if count>n-count then
writeln('Больше отрицательных')
else
if count<n-count then
writeln('Больше положительных')
else
writeln('Поровну');
end.
program znanija_32614708;
const n=10;
var a:array[1..n] of real; i,znak,poz,neg:integer;
{
n - число элементов массива;
a - массив;
i - счетчик цикла;
znak - обеспечивает смену знака элементов массива;
poz - число положительных элементов;
neg - число отрицательных элементов.
}
begin
randomize;
for i:=1 to n do begin
if random<0.5 then znak:=-1 else znak:=1;
a[i]:=znak*random;
if a[i]>0 then poz:=poz+1;
if a[i]<0 then neg:=neg+1;
end; {for i}
write('В массиве больше ');if poz>neg then write('положительных') else write ('отрицательных');write(' чисел.');
end.