Дан массив из n элементов определить сколько элементов массива начинаются и кончаются одной и той же цифрой (паскаль)

basievtamik basievtamik    2   06.10.2019 16:00    0

Ответы
MikhailMaksimovich MikhailMaksimovich  09.10.2020 23:52

begin

 var n := ReadInteger();

 var a := ReadArrInteger(n);

 var Count := 0;

 foreach var x in a do

 begin

   var s := x.ToString;

   if s[1] = s[s.Length] then Count += 1

 end;

 Print(Count)

end.


Дан массив из n элементов определить сколько элементов массива начинаются и кончаются одной и той же
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика