последовательности

[vanya94]

Помогите пожалуйста написать программу на паскале

Даны две последовательности: C1,C2,...C10; P1,P2,...P10. Если наибольший элемент первой последовательности меньше наименьшего элемента второй, задать элементам X1,X2,.., X10 новой последовательности значения C1,C2,..C10 , а элементам X11,X12,..X20 значения P1,P2..P10.


Заранее благодарю

[Sciv]

В чем конкретно проблема? Совсем не знаешь, как писать?
Хотя бы объявление переменных и массивов в состоянии сделать?

[Aranea tela telam]

На забирай

Program pr15;
var
a,b:array[1..10] of integer;
c:array[1..20] of integer;
i,a1,b1:integer;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=Random(100);
if a[i]>a1 then a1:=a[i];
b[i]:=Random(100);
if b[i]<b1 then b1:=b[i];
end;
if a1<b1 then 
begin
for i:=1 to 10 do
c[i]:=a[i];
for i:=11 to 20 do
c[i]:=b[i];
writeln(c);
end
else
writeln('Наибольший элемент первой последовательности больше наименьшего элемента второй последовательности');
end.

зы Походу скоро некоторым пользователям даже писать условие задачи на форуме будет лень)

[Sciv]

Aranea tela telam, Вы бы хоть a1,b1 проинициализовали в начале программы

[Aranea tela telam]

мда забыл )
вот исправленный

Program pr15;
var
a,b:array[1..10] of integer;
c:array[1..20] of integer;
i,a1,b1:integer;
begin
Randomize;
a1:=0;
b1:=0;
for i:=1 to 10 do
begin
a[i]:=Random(100);
if a[i]>a1 then a1:=a[i];
b[i]:=Random(100);
if b[i]<b1 then b1:=b[i];
end;
if a1<b1 then 
begin
for i:=1 to 10 do
c[i]:=a[i];
for i:=11 to 20 do
c[i]:=b[i];
writeln(c);
end
else
writeln('Наибольший элемент первой последовательности больше наименьшего элемента второй последовательности');
end.

Спасибо Sciv