GAECHKA
Твоя помощница в решении задач

Одномерные массивы

Дан одномерный массив .Упорядочить его по убыванию и найти сумму элементов ,стоящих на нечетных мествх.Помогите
0
вопрос задан

Источник


1 ответ
Uses Crt;
const
n=10;
var
a: array [1..n]of integer;
s,i,c,j:integer;
begin
for i:=1 to n do begin
a[i]:=random(11);
write(a[i]:4); end;
writeln; s:=0;
for i:=1 to n do begin
if i mod 20 then begin
s:=s+a[i]; end; end;
writeln('summ el na nes mestah=',s);
for i:=1 to n do begin
for j:=1 to n-i do 
if a[j][j+1] then begin
c:=a[j];
a[j]:=a[j+1];
a[j+1]:=c;
end; end;
for i:=1 to n do begin
write(a[i]:4); 
end; end.