паскаль - Заменить каждый третий элемент массива на значение суммы всех его элементов.

[tanyalove]

Дан массив А(10). Заменить каждый третий элемент массива на значение суммы всех его элементов. Распечатать результаты с коментариями

[DoDge_VipeR]

Дан массив А(10). Заменить каждый третий элемент массива на значение суммы всех его элементов. Распечатать результаты с коментариями

s:=0;
for i:=1 to 10 do
s:=s+a[i];
i:=3;
while i<=n do begin
a[i]:=s;
i:=i+3;
end;

[ROMA2PVT]

Класс!!!.Снова 4 задания.И решить бесплатно.

[tanyalove]

Если в массиве H(10)сумма отрицательных элементов равна по модулю сумме положительных элементов то распечатать все положительные элементы этого массива расположив их в порядке убывания значений.

Дан массив С(11) вещественных чисел. Если произведение значений каждого четвертого элемента массива меньше 100, то отсортировать массив по убыванию. В противном случае вычислить и распечатать сумму первых пяти элементов массива. Распечатать измененный массив и произведение.

[Stilet]

tanyalove

А наработки показать?

for i:=1 to 10 do begin
 a[i]:=20-random(40);
 if a[i]<0 then inc(sumo,a[i]);
 if a[i]>0 then inc(sump,a[i]);
end;
if abs(sumo)=abs(sump) then begin
 for i:=1 to 10 do begin
  if a[i]>0 then  write(a[i]);
 end;
end;

А вот сортировку ты уж сам прикрути исходя из примеров сортировки пузырьком на форуме.
Или http://www.delphiworld.narod.ru/base...thod_sort.html