Нужна помощь (задача с массивом)...

[alex_fcsm]

Сообщение от Tosa

Извеняюсь за настойчивость

begin
randomize;
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],' ');
end;

что этот оператор делает???

Ручками массив лень инициализировать, вот и решил рандомом его забить, ну и вывод тоже

[Mila9_Kykla]

Написать программу увеличение элементов массива с четными индексами на 1

[Mad_Cat]

i:=2;
while i<=n do 
begin
a[i]:=a[i]+1;
i:=i+2;
end;

[Mila9_Kykla]

Составить программу для обнуления минимального элемента массива.

[VKorablev]

min:=a[1];
for i:=1 to n do
if a[i]>min then min:=a[i];
for i:=1 to n do
if a[i]=min then a[i]:=0;

[VKorablev]

это вам за вашу наглость она меня поразила, я аж написал чото

[Mila9_Kykla]

Спасибо вам большое)))))