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

Question

Информатика

Аврелия

2 ноября, 11:31

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

+5

Ответы (1)

Знаете ответ на вопрос?

Людмилка · Answer 1

program massive;

var i, j, s, min, n:integer;

A:array [1 ... 10000] of integer;

begin

readln (n) ;

for i:=1 to n do

readln (A[i]) ;

min:=999;

for i:=1 to n do

if A[i]
min:=A[i];

s:=i;

end;

for j:=2 to i do

if j mod 2=0 then A[j]:=0;

for i:=1 to n do

write (A[i],' ') ;

end.