Question

Вариант A10: В массиве все четные элементы, стоящие левее минимального, заменить на 0. Пример: из массива A[5]: 3 2 1 0 4 должен получиться массив 3 0 1 0 4

Answer 1

var a:array[1..5] of integer;
i,min:integer;
begin
for i:=1 to 5 do begin
write('Vvedite a[',i,'] = ');
readln(a[i]);
min:=a[1];
end;
for i:=1 to 5 do if a[i]<min then min:=i;
for i:=1 to 5 do begin
if (a[i] mod 2 = 0) then if i<min then a[i]:=0;
end;
for i:=1 to 5 do write(a[i]);
end.