В масиві( масив створити зручним вивести його врядок а) знайти найбільший елемент і вивести його на екран
б) знайти номери комірок де ще зустрічаються найбільші значення
в) переставити місцями перший і найбільший елемент місцями та вивести масив на екран врядок
г) всі від'ємні елементи масиву замінити на протилежні( наприклад -7 на 7). Вивести масив на екран врядок

Человек. Тут все просто. :)

Объяснение:

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=8)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=8-2=6

ответ: В=6

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=8-2=6

ответ: А=6

ответ: А=6; В=6

Теперь мы это все повторяем в том же духе, только до того момента пока значение буквы "А" не станет меньше "0".

Значит повторяем:

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=6)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=6-6=0

ответ: В=0

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=6-2=4

ответ: А=4

ответ: А=4; В=0

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=4)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=4-0=4

ответ: В=4

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=4-2=2

ответ: А=2

ответ: А=2; В=4

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=2)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=2-0=2

ответ: В=2

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=2-2=0

ответ: А=0

ответ: А=0; В=2

"А" меньше 0?

ответ: нет, она на равне с 0. (Т.е.: А=0)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=0-0=0

ответ: В=0

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=0-2=-2

ответ: А=-2

ответ: А=-2; В=0Значит мы условия выполнили! "А" меньше 0.Удачи!

Const n=15; 
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
 if a[i]>sr then write(i:3);
writeln;
end.

Пример:
Массив:
  9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
  2 3 10 11 13 14 15