I love Computer science. I study to program on Delphi. I participate in a professional command of KVN " 34 region ". And супер a command " Laughter-it simply
Pins Club. All in successively
Horrors, comedies, adventures, Still I love University, are happy together. A wood-grouse
Delphi 7 **** Pascsl
Comedy Club Наша Russia
var i,n,max,max1:integer;
A: array [1..100000] of integer;
B: array [1..100000] of integer;
C: array [1..100000] of integer;
begin
randomize;
Writeln('%&$%^&%%');
read(n);
write ('Массив A ');
for i:=1 to n do Begin
A[i]:= random (46)-15;
Write (A[i]:5);
end;
Writeln;
write ('Массив B ');
for i:=1 to n do Begin
b[i]:=random (38)+25;
Write (B[i]:5);
end;
Writeln;
write ('Массив C ');
max:=A[1];
max1:=B[1];
for i:=1 to n do Begin
If a[i]>max then max:=a[i];
If b[i]>max1 then max1:=b[i];
end;
if max > max1 Then Begin
For i:=1 to n do Begin
c[i]:=max;
Write (c[i]:5)
End;
end
Else Begin
For i:=1 to n do Begin
c[i]:=max1;
Write (c[i]:5)
end;
end;
end