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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.