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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.