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

121

193

Посмотреть ответы 2

Ответы на вопрос:

Tw1mHero

Информатика

4,4(90 оценок)

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.