Помогите срочно надо завтра сдать:1.Дана последовательность действительных чисел a1,...

Question

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

Comments

Язык?

---

паскаль

---

последовательность заполнять вручную или случайными числами?

---

в ручную

---

Вывести только кол-во замен?

---

да

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.