Составить программу на Паскале. Дан одномерный массив целых чисел из N элементов. Найти и вывести номера элементов заканчивающихся цифрой 0.

если считать по твоему то 2 строка, где начало на var

Вы код программы копировали и вставляли?

Program p1;uses crt;const n = 10;beginvar a:array[1..n] of integer;i:integer;begin for i:=1 to n do readln(a[i]); writeln; for i:=1 to n do if a[i] mod 10 = 0 then writeln(i);end.

извините,моя ошибка. тупанул чуток

Бывает, успехов!