Двумерные массивы и векторы

[Владлена]

Двумерные массивы и векторы



Вообще не могу понять как ее решить! Помогите пожалуйста

 

[Vladimir_S]

Вообще не могу понять как ее решить! Помогите пожалуйста

Ох... ремня бы вам, лоботрясам, хорошего задать! Весь семестр профукан, а перед самой сессией начинаете бегать по форумам с задачками уровня подготовительной группы в ясли для умственно-отсталых... Ну да что теперь...

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.

 

[Владлена]

Ох... ремня бы вам, лоботрясам, хорошего задать! Весь семестр профукан, а перед самой сессией начинаете бегать по форумам с задачками уровня подготовительной группы в ясли для умственно-отсталых... Ну да что теперь...

А что делать в том случае, если препод только раздал лабы и лекцию не проводил? Из головы брать?)))
Спасибо за задачу.

 

[Vladimir_S]

А что делать в том случае, если препод только раздал лабы и лекцию не проводил?

Гнать. Препода!