Дан одномерный массив целых чисел, заполненный

случайным образом числами из промежутка [-40, 30]. Массив данных хранится в

файле. Удалить из него все элементы, которые состоят из одинаковых цифр.

Результат записать в другой файл.

Question

Информатика

Кирюня

17 апреля, 18:13

Дан одномерный массив целых чисел, заполненный

случайным образом числами из промежутка [-40, 30]. Массив данных хранится в

файле. Удалить из него все элементы, которые состоят из одинаковых цифр.

Результат записать в другой файл.

+4

Ответы (1)

Знаете ответ на вопрос?

Васяна · 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]div10m[i] mod 10)

then writeln (m[i]) ;

close (t) ;

end;