Задать через списки.

[Просто_Эндрю]

в элементах линейного цепного списка заложены целые числа. Напишите функцию, которая определит колличество элементов списка, содержащих число, делящееся на 5 (нпример: про список 1 5 10 7 5 будет итоговое значение 3)

program seznam;
uses crt;
const dimenze=100;
var A:array[1..dimenze] of integer;
sum,i:integer;
begin
clrscr;
randomize;
sum:=0;
for i:=1 to dimenze do
begin
A[i]:=random(1001)-500;
write(A[i],' ');
if A[i] mod 5=0
then sum:=sum+1;
end;
writeln;
write('Pocet prvku seznamu obsahujicich cislo delitelne 5 je: ',sum);
readln
end.

сделали через массив.препод сказал,что надо через список.выручайте товарищи!!)

[Stilet]

Я тебе не завидую, ибо писанины в работе со списками просто таки океан.
Если не знаешь рекомендую начать изучать работу с ними.
Вот тебе пример как работают со спиками:http://www.programmersforum.ru/showthread.php?t=87357
Обязательно почитай теорию http://www.intuit.ru/search?text=%E4...EF%E8%F1%EA%E8
Или http://www.rusedu.info/Article525.html