Даны два массива чисел. Найти сумму элементов того массива,в котором больше положительных чисел — Pascal(Паскаль)

uses crt;
const n=4;
type arr=array[1..n] of integer;
var a,b:arr;
    i,j,p,sm:integer;
 
procedure Kol(a,b:arr; var p:integer);
var k1,k2:integer;
begin
k1:=0;
 for i:=1 to n do
  if a[i]>0 then
   inc(k1);
k2:=0;
 for i:=1 to n do
  if b[i]>0 then
   inc(k2);
 if k2>=k1 then
  p:=2
 else
  p:=1;
end;
 
function Sum(a,b:arr; var s,k:integer):integer;
begin
Kol(a,b,k);
if k=1 then
 for i:=1 to n do
  s:=s+a[i]
else
 if k=2 then
  for i:=1 to n do
   s:=s+b[i];
end;
 
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
 end;
Writeln;
for i:=1 to n do
 begin
  b[i]:=random(20)-10;
  Write(b[i],'  ');
 end;
Writeln;
Sum(a,b,sm,p);
Writeln('Summa [',p,'] =',sm);
Readln
end.

Leave a Comment

7 + 2 =