Помогите Сестренке моей (ПАСКАЛЬ)

[KurtCobainUfa]

У меня сестренка в Инивере учится, курсач через день сдавать, она не может сделать 2 задачки на ПАСКАЛЕ. Сам я экономист поэтому в ПАскале дуб дубом пожалуйста помогите.

Вариант 13
1. У кассы аэрофлота выстроилась очередь из N человек. Время обслуживания кассиром i-го клиента равно Ti (i = 1, ..., N). Требуется:
а) определить время пребывания в очереди каждого клиента;
б) указать номер клиента, для обслуживания которого кассиру потребовалось самое большое время.
2. Из заданных векторов X(N) и Y(N) получить вектор Z(2N ) c элементами (x1 , y1 , x2 , y2 , ..., xN , yN ).


Вариант 14*
1. Дан массив A(2N). Построить массивы с элементами, соответственно равными:
а) a1 , aN+1 , a2 , aN+2 , ... , aN , a2N ;
б) a2N , a1 , a2N -1 , a2 , ... , aN+1 , aN.
2. Сжать заданный массив A(N) отбрасыванием нулевых элементов.

Хотелось бы решить или 13 или 14 вариант. Один из двух, какой легче (приоритетней13). Помогите плиз. А то не хочется чтоб сестренку Отчислили (

[puporev]

Даже если у вас действительно сестренка есть, все равно нехорошо прикрываться женскими телами. Но, в глубине души надеясь, что это действитедьно сестренке нужно, привожу решение Варианта 13. Объяснять ничего не буду, тут голая арифметика за 5 класс с небольшой примесью ПАскаля. А раз уж вы в Инивере учитесь, разберетесь.
Задача 1.

uses crt;
var a,b:array[1..100]of integer;
    n,i,j,sum,max:integer;
begin
clrscr;
write('Vvedite kolichestvo klientov: n=');
readln(n);
randomize;
writeln('Vremja obsluzivanja klienta:');
for i:=1 to n do
   begin
    a[i]:=random(16)+5;
    write(a[i],' ');
   end;
writeln;
writeln;
for i:=1 to n do
   begin
    sum:=0;
    for j:=1 to i do
      begin
       sum:=sum+a[j];
      end;
    b[i]:=sum;
    writeln('Vremja ozidanja klienta ',i,'=',b[i]);
   end;
writeln;
readln;
max:=a[1];
for i:=1 to n do
if a[i]>max then
max:=a[i];
for i:=1 to n do
if a[i]=max then
writeln('Dolshe vsego obsluzivali klienta=',i);
readln
end.

Задача 2.

uses crt;
var x,y,z:array[1..100]of integer;
    n,i,j:integer;
begin
clrscr;
write('Vvedite razmer vectorov x,y: n=');
readln(n);
writeln('Vector X:');
for i:=1 to n do
   begin
    x[i]:=2*i-1;
    write(x[i],' ');
   end;
writeln;
writeln;
writeln('Vector Y:');
for i:=1 to n do
   begin
    y[i]:=2*i;
    write(y[i],' ');
   end;
writeln;
writeln;
writeln('Vector Z:');
for i:=1 to 2*n do
  begin
    if i mod 2<>0 then z[i]:=x[(i+1) div 2]
    else if i mod 2=0 then z[i]:=y[i div 2];
    write(z[i],' ');
  end;
readln
end.

[KurtCobainUfa]

Огромное спасибо, зафра результат у нее узнают.