Дан одномерный массив целых чисел, заполненный случайным образом числами из промежутка [-40, 30]. Массив данных хранится в файле. Удалить из него все элементы, которые состоят из одинаковых цифр. Результат записать в другой файл.

program zz1;

const n = 50; / / задаем количество элементов в массиве

var i, s, k, a:integer; / / задаем переменные целого типа

f1, f2:text;

begin

assign (f1,'file1. txt');

rewrite (f1);

assign (f2,'file2. txt');

rewrite (f2);

for i:=1 to n do / / получаем n чисел случайных и записываем их в файл

write (f1, random (71) - 40:5);

close (f1);

assign (f1,'file1. txt');

reset (f1);

while not eof (f1) do

begin

read (f1, a);

if (a9) / / проверяем, если число из одной цифры или одинаковых цифр, то в новый массив их не записываем

then begin s:=a div 10; k:=a mod 10; if sk then write (f2, a,' '); end;

end;

close (f1);

close (f2);

end.