Занести в одно мерный массив целые числа с клавиатуры. Затем определить в массиве и...

Question

Занести в одно мерный массив целые числа с клавиатуры. Затем определить в массиве и вывести на экран следующие значения: числа-элементы массива, у которых индекс (номер элемента массива) заканчивается цифрой 3.

Answer 1

Var i:integer; a:array[1..20] of integer;
begin
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
if (i=3) or (i mod 10=3) then writeln(a[i]);
readln;
end.