Паскаль. Массивы. Замена элементов

[Stelix]

Дан массив X1, ... , X20.(всм от Х первого до Х двадцатого)
Если среди первых десяти элементов есть хотя бы один отрицательный, то заменить последние пять элементов на среднее арифметическое всего ряда.
Сорри,что всё время надоедаю)))Просто проблемы ппц...

[zetrix]

Слушайте, если Вы не можете решить такие простые задачки, то... Кароче пытайтесь сами!
Код просто так написал - не проверял.

var found:boolean;
x:array[1..20] of real;
sred:real;
i:byte;
...//ввод данных в массив
found:=false;
sred:=0;
for i:=1 to 10 do if x[i]<0 then found:=true; //ещем отрицательные переменные в первом десятке
if found then //если нашли, делаем то, что требуется
 begin
 for i:=1 to 20 do sred:=sred+x[i];
 sred:=sred/20;
 for i:=16 to 20 do x[i]:=sred;
 end;

[Stelix]

Спасибо большое,я еще просто только начинаю,делаю всё обложившись книгами,самоучителями,т.к. лекции в университете просто отвратительные.Вот я и не могу...