Artifical Mind
Профи
(896)
10 лет назад
program n;
uses crt;
var i:integer;
b:array[1..10] of integer;
a:array[1..5] of integer;
begin
clrscr;
for i:=1 to 5 do
begin
a[i]:=random(100);
Write(a[i], ' ');
End;
Writeln;
for i:=1 to 10 do
begin
b[i]:=random(100);
Write(b[i], ' ');
End;
Writeln;
for i:=1 to 5 do
Write(a[i]+b[i], ' ');
Writeln;
end.