Не могу найти ошибки в программе

@Danilleet · Регистрация: 25.01.2018

Author24 — интернет-сервис помощи студентам

Нужно было написать программу, которая позволяет найти и вывести количество пар элементов массива, в которых десятичная запись хотя бы одного элемента оканчивается на 10. Пара-два подряд идущих элемента массива. А программа ниже выводит число 0 при любых значениях элементов.

Pascal

const n=10;
var a:array[1..n] of integer;
i,j,k:integer;
begin
for i:=1 to n do
readln(a[i]);
for i:=1 to n do begin
if ((a[i] mod 10)=10)and(i<>1)and(i<>n)
then 
k:=k+2;
if ((a[i] mod 10)=10)and ((i=1) or (i=n))
then j:=j+1;
end;
k:=k+j;
write('Ответ-',k);
 
end.

@Puporev · 28.01.2018, 08:51

Pascal

//каждое число образует n-1 пар
k:=0;
for i:=1 to n do
if (a[i] mod 100)=10 then  k:=k+n-1;//оканчиваются на 10 такие числа

	28.01.2018, 08:51