Тема: Составление программ с использованием одномерных массивов.

Создать массив, вводя числа с клавиатуры, и вывести на экран элементы, кратные пяти и их номера.

Var

A:array[1 ... 100] of integer;

i, N:integer;

Begin

Write ('Введите количество элементов массива: ') ; ReadLn (N) ;

Write ('Заполните массив Mass (', N,') : ') ;

For i: = 1 to N do

Read (A[i]) ;

Write ('Элементы, кратные пяти:') ;

For i: = 1 to N do

if A[i] mod 5 = 0 then Write (' ', A[i],'[', i,']')

End.