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

Question

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

Answer 1

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