Дан массив размерностью n. Заменить все числа больше Z, этим числом.
program rjad1;
uses
crt;
const
n = 10; {можно изменить}
var
a : array[1..n] of real;
z : real;
i : integer;
begin
randomize; // запускаем генератор случ. чисел
writeln('Введите Z');
readln(z);
for i := 1 to n do
begin
a[i] := random(trunc(z) + 50); //заполн. массив случ. числами от 0 до z + 50
write(a[i]:3:0); // выводим начальный массив
end;
// выводим обработанный массив
writeln;
for i := 1 to n do
if a[i] > z then
begin
textcolor(4); // меняем цвет заменнённых чисел
write(z:3:0); // для наглядности
textcolor(7);
end
else
write(a[i]:3:0);
readln;
end.