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

Дан массив а(20) отсортировать в порядке убывания элементы стоящие на четных номерах

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

Var a:array[1..20] of integer;
i,j,k,p:integer;
begin
for i:=1 to 20 do
read(a[i]);
for i:=1 to 19 do begin
k:=i;
if odd(i) then continue;
for j:=i to 20 do
if (a[k] p:=a[i];
a[i]:=a[k];
a[k]:=p;
end;
for i:=1 to 20 do
write(a[i], );
end.

Не нашли ответа?

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