Question

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

Answer 1

var 
m:array [1..100] of integer;

t:text;
begin
assign(t,'input.txt');
reset;
for i:= to 100 do
readln(m[i]);
close(t);
assign(t,'output.txt');
rewrite(t);
for i:=1 to 100 do
if (m[i]div10<>m[i] mod 10)
then writeln(m[i]);
close (t);
end;