Var i, n, k:integer ;
A:array[1..100]of Integer ;
Begin
Write('n=') ;read(n) ;
For i:=1 to N do begin
A[i]:=random(100);
Write(' ', A[i]) ;end;
K:=0;writeln;
For i:=1 to N do begin
If A[i]<50 then a[i]:=50;
K:=k+1;end;
If k=0 then write('таких элементов нет')
Else For i:=1 to N do write(' ', A[i]) ;
End.
