Пишите язык, который вам нужен. Пишу на наиболее вероятном: Pascal.program massiv;
uses crt;
var A:array[1..10] of integer; s: real; i,k, p: integer;
begin
clrscr;
randomize;
writeln ('задан массив:');
for i:=1 to 10 do
a[i]:=random(100); {задание массива}
s:=s+a[i];{ считаем сразу сумму элементов}
write (a[i]:4); {вывод на экран}
end;
s:=s/10;
if a[i]>s then p:=p+1;
if p mod 2= 0 then {проверка на четность}
for i:=1 to 10 do a[i]:=a[i]+i
else
k:=a[5];
a[5]:=a[6];
a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}
writeln; {дабы у вас ничего не слиплось}
for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран}
end.
Пишите язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
program massiv;
uses crt;
var A:array[1..10] of integer; s: real; i,k, p: integer;
begin
clrscr;
randomize;
writeln ('задан массив:');
for i:=1 to 10 do
begin
a[i]:=random(100); {задание массива}
s:=s+a[i];{ считаем сразу сумму элементов}
write (a[i]:4); {вывод на экран}
end;
s:=s/10;
for i:=1 to 10 do
if a[i]>s then p:=p+1;
if p mod 2= 0 then {проверка на четность}
for i:=1 to 10 do a[i]:=a[i]+i
else
begin
k:=a[5];
a[5]:=a[6];
a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}
end;
writeln; {дабы у вас ничего не слиплось}
for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран}
end.
Пишите язык, который вам нужен. Пишу на наиболее вероятном: Pascal.
program massiv;
uses crt;
var A:array[1..10] of integer; s: real; i,k, p: integer;
begin
clrscr;
randomize;
writeln ('задан массив:');
for i:=1 to 10 do
begin
a[i]:=random(100); {задание массива}
s:=s+a[i];{ считаем сразу сумму элементов}
write (a[i]:4); {вывод на экран}
end;
s:=s/10;
for i:=1 to 10 do
if a[i]>s then p:=p+1;
if p mod 2= 0 then {проверка на четность}
for i:=1 to 10 do a[i]:=a[i]+i
else
begin
k:=a[5];
a[5]:=a[6];
a[6]:=k; {обмен значений а5 и а6. если считать их центральными элементами, через третью переменную}
end;
writeln; {дабы у вас ничего не слиплось}
for i:=1 to 10 do write (a[i]:4); {вывод полученного массива на экран}
end.