Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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]for i:=1 to 5 do begin
if (a[i] mod 2 = 0) then if iend;
for i:=1 to 5 do write(a[i]);
end.