Program n1;
var a: array[1..15] of integer;
min,i: integer;
begin
randomize;
a[1]:=random(41)-20;
min:=a[1];
for i:=2 to 15 do
begin
a[i]:=random(41)-20;
if a[i]<min then min:=a[i];
end;
write(min);
end.
<span>111010+11101=</span>1010111 - считать можно в обычном калькуляторе Windows,если не знаете как это делается "головой".
Жили были клавиатура,мышь,и компьютер.Жили они хорошо, пока не возник у них спор: кто из них самый главный! Каждый начал доказывать, что именно он главный! Первой отозвалась Мышка: «Я сама маленькая, значит я главнее!»
Потом сказала Клавиатура: «Я самая главная, потому что я знаю множество языков!»
Тут возмутился компьютер : «Я среди вас самый главный! Все, кто работает с монитором , смотрит только на меня, я всем нужен!»
Они так спорили, пока не решили, что без них невозможно работать. На том и решили и после этого уже больше не ссорились, а жили долго и счастливо.