Question

дан массив. заменить все его элементы ., большие заданного N, этим числом​

Answer 1

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 N, i: integer;

begin

 write('N = ');  readln(N);

 // заполняем массив случайными числами от 0 до 100

 for i := 1 to 10 do arr[i] := random(100);

 writeln(arr);

 for i := 1 to 10 do

   if arr[i] > N then arr[i] := N;

 writeln(arr);

end.

Результат:

N = 77

[25,77,14,93,30,75,64,97,12,35]

[25,77,14,77,30,75,64,77,12,35]