Определите топологию сети у которой возникает проблема «При разрыве кабеля между двумя узлами работа локальной сети нарушается».

203

223

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

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

Alexal16

Информатика

4,8(27 оценок)

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.