Задание:
1) ввести с клавиатуры массив из n элементов вывести на экран элементы меньшие среднего арифметического всех элементов массива 2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
Решение:
1) const n=?; //Сюда поставить любое нужное nVar a: array[1… n] of real; i,x,k: integer; s: real; Begin for i: =1 to n do begin readln (x); a[i]: =x; end; s: =0; k: =0; for i: =1 to n do begin s: =s+a[i]; k: =k+1; end; s: =s/k; for i: =1 to n do if a[i]max then max: =a[i]; for i: =1 to n do if (i mod 2) <>0 then if a[i]