Const N = 50;
var
numbers: array [1..50] of integer;
i, k: integer;
begin
k := 0;
for i:=1 to N do
numbers[i] := Random(100);
for i:=1 to N do
if numbers[i] <> numbers[N] then
inc(k);
write(k);
end.
Редактором она называется потому что при обработке текста вы редактируете текст. Компьютер - это технология которая обрабатывает информацию. Само слово редактировать значит (изменять что либо)