Минимум крат. 3

[xGISMOx]

Привет всем у меня проблемка такая вам это запросто а я просто не понимаю может решите посмотрю да и пойму...препод нечего не объясняет а отчёт просит вот в принципе тект задачи:
Нахождение минимально значения из чисел, кратных трем,среди последовательности вводимых чисел(обработку остановить при вводе заказанного количества чисел)(тип обр. данных целые)
Зарание спасибо!

[BHy4ok]

Нахождение минимально значения из чисел, кратных трем,среди последовательности вводимых чисел(обработку остановить при вводе заказанного количества чисел)(тип обр. данных целые)
Зарание спасибо!

Что означает "обработку остановить при вводе заказанного количества чисел" ? Просто количество чисел n ? Если да, то пробуйте:

[syntax='Pascal']
uses
Crt;
var
k,n,i,min:integer;
s,t:string;
begin
ClrScr;
min:=1000;
write('Vvedite kolichestvo n: ');
readln(n);
for I := 1 to n do
begin
write('vvedite ',i,' chislo: ');
readln(k);
if k mod 3=0 then
begin
Str(k,t);
S:=S+t+' ';
if min>k then
min:=k;
end;
end;
writeln;
writeln('chisla kratnie 3-m - ',S);
writeln('minimalnoe iz kratnih - ',min);
readln;
end.
[/syntax]
Лучше сделать через массив, но код будет немного длиннее.