Значение мониторов их виды

Question

Информатика: Значение мониторов их виды​

abduleuloew201 · Accepted Answer

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;

writeln('количество замен: ', k);

end.

Значение мониторов их виды​