Question

.Дан массив состоящ из 15 целых чисел,заполненых случ.образом в промежутке от -10 до 10.Найти максимальное значение и заменить на 0 значения всех элементов ,которые находятся перед максимальным

Answer 1

program new;
var a:array[1..15] of integer;max,m,i:integer;
begin 
randomize;
for i=1 to 15 do
a[i]:=random(21)-10
end;
max:=-10;
for i =1 to 15 do
if a[i] > max then
begin
m:=i;
max:=a[i]
end;
for i=1 to m-1 do
a[i]:=0;
end;
end.