В массиве, содержащем положительные и отрицательные целые числа, вычислить сумму четных положительных элементов.
Максимальный из элементов массива с четными индексами
В массиве найти максимальный элемент с четным индексом.
Другая формулировка задачи: среди элементов массива с четными индексами, найти тот, который имеет максимальное значение.
Элементы массива, которые меньше среднего арифметического
Найти в массиве те элементы, значение которых меньше среднего арифметического, взятого от всех элементов массива.
Найти два наименьших (минимальных) элемента массива
В одномерном массиве целых чисел определить два наименьших элемента. Они могут быть как равны между собой (оба являться минимальными), так и различаться.
Сжать массив, удалив из него все элементы, величина которых находится в интервале [а, 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.
Найти сумму элементов между минимальным и максимальным элементами массива
В одномерном массиве найти сумму элементов, находящихся между минимальным и максимальным элементами. Сами минимальный и максимальный элементы в сумму не включать.
Среднее арифметическое положительных элементов массива
Найти среднее арифметическое положительных элементов линейного массива.
Максимальный отрицательный элемент массива
В массиве найти максимальный отрицательный элемент. Вывести на экран его значение и позицию в массиве.
Число, чаще всего встречающееся в массиве
Определить, какое число в массиве встречается чаще всего.
Поменять местами минимальный и максимальный элементы
В массиве случайных целых чисел поменять местами минимальный и максимальный элементы.
В массиве, содержащем положительные и отрицательные целые числа, вычислить сумму четных положительных элементов.
Максимальный из элементов массива с четными индексами
В массиве найти максимальный элемент с четным индексом.
Другая формулировка задачи: среди элементов массива с четными индексами, найти тот, который имеет максимальное значение.
Элементы массива, которые меньше среднего арифметического
Найти в массиве те элементы, значение которых меньше среднего арифметического, взятого от всех элементов массива.
Найти два наименьших (минимальных) элемента массива
В одномерном массиве целых чисел определить два наименьших элемента. Они могут быть как равны между собой (оба являться минимальными), так и различаться.
Сжать массив, удалив элементы, принадлежащие интервалу
Сжать массив, удалив из него все элементы, величина которых находится в интервале [а, 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.
Найти сумму элементов между минимальным и максимальным элементами массива
В одномерном массиве найти сумму элементов, находящихся между минимальным и максимальным элементами. Сами минимальный и максимальный элементы в сумму не включать.
Среднее арифметическое положительных элементов массива
Найти среднее арифметическое положительных элементов линейного массива.
Максимальный отрицательный элемент массива
В массиве найти максимальный отрицательный элемент. Вывести на экран его значение и позицию в массиве.
Число, чаще всего встречающееся в массиве
Определить, какое число в массиве встречается чаще всего.
Поменять местами минимальный и максимальный элементы
В массиве случайных целых чисел поменять местами минимальный и максимальный элементы.
program spk;
var i,s,k:integer;
p:real;
a:array [1..10] of integer;
begin
for i:=1 to 10 do a[i]:=random(81)-30;
for i:=1 to 10 do write(a[i],' ');
for i:=1 to 10 do if i mod 2 = 0 then s:=s+a[i];
p:=1;
for i:=1 to 10 do if a[i] < 0 then p:=p*a[i];
for i:=1 to 10 do if a[i] mod 2 <> 0 then k:=k+1;
write('s = ',s,' p = ',p,' k = ',k);
end.
Объяснение:
program spk;
var a:array [1..10] of integer;
i,s,k:integer;
p:real;
begin
p:=1;
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(81)-30;
write(a[i],' ');
if i mod 2 = 0 then s:=s+a[i];
if a[i] < 0 then p:=p*a[i];
if a[i] mod 2 <> 0 then k:=k+1
end;
writeln;
writeln('Сумма элементов массива, с четными номерами, равна ',s);
writeln('Произведение отрицательных элементов равно ',p);
writeln('Количество нечётных элементов равно ',k)
end.