6.Дана
последовательность действительных чисел а1,а2,…,аn. Заменить все её члены,
большие данного Z, этим числом. Подсчитать количество замен.
Решение
program
lab6;
type
mas=array[1..100] of integer;
var
a:mas;
i,j,z:integer;
begin
randomize;
for i:=1
to 10 do
begin
a[i]:=random(10);
write(a[i],' ');
end;
writeln('Vvedite
Z');
readln(z);
j:=0;
for i:=1
to 10 do
begin
if a[i]>z then
begin
a[i]:=z;
j:=j+1;
end;
end;
for i:=1
to 10 do
write(a[i],'
');
writeln(j);
end.