Информатика, опубликовано 2018-08-22 22:58:29 by Гость

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

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

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.

Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.

Форма вопроса доступна на полной версии этой страницы.