Дан линейный массив. Нужно найти сумму минимального и максимального элемента массива, а также кол-во отрицательных элементов, стоящих на чётных
5-9 класс
|
местах, и вывести массив вычеркнув все нечетные значения.
var a: array [1..1000] of integer; n, i, max, min, amount:integer;
begin
read(n);
for i := 1 to n do
read(a[i]);
max := a[1];
min := a[1];
amount := 0;
for i := 1 to n do
begin
if a[i] > max
then
max := a[i];
if a[i] < min
then
min := a[i];
if (i mod 2 = 0) and (a[i] < 0)
then
amount := amount + 1;
end;
writeln('Sum of min and max equals ',max + min);
writeln('Amount of numbers below zero and on even places: ', amount);
for i := 1 to n do
if i mod 2 = 0
then
write(a[i], ' ');
end.
Другие вопросы из категории
2. какой тип данных могут иметь аргументы и возвращаемые значения строковых функций
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
элементов массива.
Помогите пожалуйста, очень нужно.
местах; в) подсчитать сумму отрицательных элементов массива; г) подсчитать сумму элементов массива, больших произвольного числа К. помогите, пожалуйста