Question

ПАСКАЛЬ! Дана последовательность действительных чисел a1, a2,a3,.., an. Заменить все её члены, большие данного Z, этим числом. Подсчитать количество замен.

Answer 1

Var
   A:array[1..10000] of integer;
   n,Z,i:integer;
Begin
Randomize;
Write('n = ');ReadLn(n);
Write('A(',n,'):');
For i:= 1 to n do
    Begin
    A[i]:=random(2*n+1)-n;
    Write(' ',A[i])
    End;
WriteLn;
Write('Z = ');ReadLn(Z);
i:=0;
WriteLn;
Write('Новая последовательность(',n,'):');
For n:= 1 to n do
    Begin
    if A[n] > Z then
       Begin
       A[n]:=Z;
       i:=i+1
       End;
    Write(' ',A[n])
    End;
WriteLn;
WriteLn('Количество замен: ',i);
End.