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

Question

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

Answer 1

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var s:=a.IndexesOf(x->x mod 10=0);
  if s.Count=0 then Writeln('Нет элементов, оканчивающихся на 0')
  else begin
    Write('Номера элементов, оканчивающихся на 0: ');
    s.Select(i->i+1).Println
    end
end.

Примеры
n= 12
-41 46 29 -13 -43 -21 48 43 41 -48 -19 -44
Нет элементов, оканчивающихся на 0

n= 16
37 -48 39 32 -6 21 -48 34 6 12 -10 -15 40 -36 46 26
Номера элементов, оканчивающихся на 0: 11 13

Answer 2

const n = 10;

var 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.

Comments

пишет ожидался идентификатор, но var обнаружен

---

что нужно изменить?

---

Номер строки, где ошибка?

---

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

---

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

---

Program p1;
uses crt;
const n = 10;
begin
var 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.

---

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

---

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