Вводится 5 строк, в которых сначала записан порядковый номер строки с точкой, а затем – слово. вывести слова в алфавитном порядке. пример: введите 5 строк: 1. тепловоз 2. арбуз 3. бурундук 4. кефир 5. урядник список слов в алфавитном порядке: арбуз, бурундук, кефир, тепловоз, урядник

uses crt; var e:array[1..3,1..7] of integer; s,max,n,m:integer;

index,sum:integer;

procedure max_el;

begin max:=e[1,1];

sum:=0;

index:=0;

for n:=1 to 3 do

begin

for m:=1 to 7 do

begin

if e[n,m]>max then

begin

max:=e[n,m];

index:=m;

end;

end;

end;

for n:=1 to 3 do

begin

if e[n,index]<0 then

begin

sum:=sum+e[n,index];

end;

end;

writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);

end;

begin

clrscr;

writeln('elementy massiva');

writeln;

randomize;

for n:=1 to 3 do begin for m:=1 to 7 do

begin

e[n,m]:=random(100) -50;

write('',e[n,m],' ');

end;

writeln;

end;

writeln;

writeln;

max_el;

readkey;

end.

Объяснение:

Сумма четных положительных элементов массива

В массиве, содержащем положительные и отрицательные целые числа, вычислить сумму четных положительных элементов.

Максимальный из элементов массива с четными индексами

В массиве найти максимальный элемент с четным индексом.

Другая формулировка задачи: среди элементов массива с четными индексами, найти тот, который имеет максимальное значение.

Элементы массива, которые меньше среднего арифметического

Найти в массиве те элементы, значение которых меньше среднего арифметического, взятого от всех элементов массива.

Найти два наименьших (минимальных) элемента массива

В одномерном массиве целых чисел определить два наименьших элемента. Они могут быть как равны между собой (оба являться минимальными), так и различаться.

Сжать массив, удалив элементы, принадлежащие интервалу

Сжать массив, удалив из него все элементы, величина которых находится в интервале [а, b]. Освободившиеся в конце массива элементы заполнить нулями.

Сумма модулей элементов массива, расположенных после первого отрицательного

Вычислить сумму модулей элементов массива, расположенных после первого отрицательного элемента.

Например, в массиве [5, 3, -1, 8, 0, -6, 1] первый отрицательный элемент является третьим по счету, а сумма модулей стоящих после него элементов массива будет составлять 8 + 0 + 6 + 1 = 15.

Номер минимального по модулю элемента массива

Найти номер минимального по модулю элемента массива.

Например, в массиве [10, -3, -5, 2, 5] минимальным по модулю элементом является число 2. Его номер 4 (в языках, в которых индексация массивов начинается с нуля, его индекс будет равен 3).

Сумма цифр массива

Найти сумму всех цифр целочисленного массива. Например, если дан массив [12, 104, 81], то сумма всех его цифр будет равна 1 + 2 + 1 + 0 + 4 + 8 + 1 = 17.

Найти сумму элементов между минимальным и максимальным элементами массива

В одномерном массиве найти сумму элементов, находящихся между минимальным и максимальным элементами. Сами минимальный и максимальный элементы в сумму не включать.

Среднее арифметическое положительных элементов массива

Найти среднее арифметическое положительных элементов линейного массива.

Максимальный отрицательный элемент массива

В массиве найти максимальный отрицательный элемент. Вывести на экран его значение и позицию в массиве.

Число, чаще всего встречающееся в массиве

Определить, какое число в массиве встречается чаще всего.

Поменять местами минимальный и максимальный элементы

В массиве случайных целых чисел поменять местами минимальный и максимальный элементы.

Сдвиг массива

Сдвинуть элементы массива в указанном направлении (влево или вправо) и на указанное число шагов. Освободившиеся ячейки заполнить нулями. Выводить массив после каждого шага.

Вывести неповторяющиеся элементы массива

В массиве найти элементы, которые в нем встречаются только один раз, и вывести их на экран. То есть найти и вывести уникальные элементы массива.

Реверс массива

Переставить элементы заданного массива в обратном порядке, то есть произвести реверс массива.

Найти наибольший элемент и его порядковый номер в массиве

Заполнить одномерный массив случайными числами. Найти и вывести на экран наибольший его элемент и порядковый номер этого элемента.

Сколько элементов массива больше по модулю максимального

Создать массив из 20 элементов в диапазоне значений от -15 до 14 включительно. Определить количество элементов по модулю больших, чем максимальный.

Удаление отрицательных элементов массива

Определить индексы четных элементов массива