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

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

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.