| Dirt_nba | Дата: Вторник, 22.01.2008, 16:00 | Сообщение # 1 |
 Знакомый
Группа: Пользователи
Сообщений: 11
Статус: Offline
| Дана последовательность из N целых чисел. Найти в ней самое минимальное число.
я люблю баскетбол
|
| |
| |
| ymatem | Дата: Четверг, 24.01.2008, 23:56 | Сообщение # 2 |
 Знакомый
Группа: Пользователи
Сообщений: 13
Статус: Offline
| program a1;
var
a,b,k,n,min:integer;
begin
k:=0;
write('введите количество чисел');
readln(n);
write('введите первое число ');
readln(a);
write('введите второе число');
readln(b);
if a>b then min:=b
else min:=a;
repeat
k:=k+1;
a:=b;
write('введите следущее число');
readln(b);
if a<min then min:=a;
if b<min then min:=b;
until k=n-2;
write(min);
end.
|
| |
| |
