Дан одномерный массив целых чисел, заполненный случайным образом числами из промежутка [-40, 30]. Массив данных хранится в файле. Удалить из него все элементы, которые состоят из одинаковых цифр. Результат записать в другой ф...
Дан одномерный массив целых чисел, заполненный
случайным образом числами из промежутка [-40, 30]. Массив данных хранится в
файле. Удалить из него все элементы, которые состоят из одинаковых цифр.
Результат записать в другой файл.
Гость
Ответ(ы) на вопрос:
Гость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;
Не нашли ответ?
Похожие вопросы