Дан массив из n элементов определить сколько элементов - вопрос №9828090 от StarBoy12ewq 05.01.2020 06:27

Question

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

StarBoy12ewq · Answer

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.