Дан одномерный массив A(N) a(1) a(2),....,a(n) -целые заменить все большеие члены массива...

Question

Дан одномерный массив A(N) a(1) a(2),....,a(n) -целые заменить все большеие члены массива числом 7 .найти колличество таких членов

Comments

насколько большие должны быть элементы массива?

---

вроде бы на 7 написано

Answer 1

Var  A: array [1..100] of integer;
  i, n, k: integer;
begin
  writeln('Введите количество элементов массива');
  readln(n);
  for i := 1 to n do
   begin
    A[i] := 1 + random(10);
    writeln('A[', i, ']=', A[i]:3);
    if A[i] > 7 then A[i] := 7;
    if A[i] = 7 then inc(k);
  end;
  writeln('Всего заменено ', k, ' элементов массива');
  readln
end.