Question

Помогите срочно надо завтра сдать:
1.Дана последовательность
действительных чисел a1,
a2,…,an
,
Замените все ее члены, большие данного Z, этим числом. Подсчитать количество замен.

Answer 1

var
  a: array[1..1000] of real;
  i, k, n, z: integer;
begin
  writeln('Введите число N:');
  readln(n);
  writeln('Введите число Z:');
  readln(z);
  writeln('Введите ',n,' действительных чисел (каждое с новой строки):');
  for i := 1 to n do
  begin
    readln(a[i]);
    if a[i] > z then
    begin
      a[i] := z;
      k := k + 1;
    end;
  end;
  writeln('Количество замен: ', k);
end.