В линейном массиве вещественных чисел а (n) заменить все элементы большие 10. на число с.

Const

k = 20;

var

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

c, i, n: integer;

begin

Randomize;

write ('Введите число элементов массива (не более 20) : ') ;

readln (n) ;

write ('Введите целое число С: ') ;

readln (c) ;

write ('Исходный массив: ') ;

for i : = 1 to n do

begin

a[i] : = Random (41) - 20;

write (a[i], ' ')

end;

write (#13#10,'Массив-результат: ') ;

for i : = 1 to n do

begin

if a[i] > 10 then a[i] : = c;

write (a[i], ' ')

end

end.

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

Введите число элементов массива (не более 20) : 18

Введите целое число С: 99

Исходный массив: - 1 - 17 - 15 16 12 - 12 14 19 - 1 18 13 11 - 17 - 6 - 17 - 2 20 - 14

Массив-результат: - 1 - 17 - 15 99 99 - 12 99 99 - 1 99 99 99 - 17 - 6 - 17 - 2 99 - 14