| Vladimir_S |
18.12.2016 21:22 |
Цитата:
Сообщение от Владлена
(Сообщение 2445507)
Вообще не могу понять как ее решить! Помогите пожалуйста
|
Ох... ремня бы вам, лоботрясам, хорошего задать! Весь семестр профукан, а перед самой сессией начинаете бегать по форумам с задачками уровня подготовительной группы в ясли для умственно-отсталых... Ну да что теперь...
Код:
Const
N=10;
Var
A,B,C:Array[1..N] of Integer;
i:Integer;
Begin
Randomize;
for i:=1 to N do
begin
A[i]:=Random(10);
B[i]:=5+Random(10);
end;
Writeln('Array A:');
for i:=1 to N do write(A[i]:4);
Writeln;
Writeln;
Writeln('Array B:');
for i:=1 to N do write(B[i]:4);
Writeln;
Writeln;
for i:=1 to N do C[i]:=A[i]+B[i];
Writeln('Array C:');
for i:=1 to N do write(C[i]:4);
Readln
End.
|
