Выполнить в paskal

N=12 Ввести число К Определить количество элементов массива, значения которых больше K.

...

Все элементы массива увеличить в 3 раза. Массив вывести.

...

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

Const

n = 12;

var

a: array[1 ... n] of integer;

i, k, p, max: integer;

begin

Randomize;

Write ('Введите число К: ') ;

Readln (k) ;

Write ('Элементы массива: ') ;

p : = 0;

for i : = 1 to n do

begin

a[i] : = Random (101) - 50;

Write (a[i]:5) ;

if a[i] > k then p : = p + 1;

end;

Writeln (#13#10, 'Количество элементов, больших ', k, '=', p) ;

max : = - 32768;

for i : = 1 to n do

begin

a[i] : = 3 * a[i];

if max < a[i] then max : = a[i]

end;

if max > 0 then Writeln ('Максимальный элемент массива равен ', max)

else Writeln ('В массиве нет положительных элементов')

end.

Тестовое решение:

Введите число К: 25

Элементы массива: - 10 43 - 6 8 - 4 39 26 - 30 - 33 - 10 - 34 - 4

Количество элементов, больших 25=3

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