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

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.