Const n=30;
var a:array[1..n] of integer;
i,min:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] div 100>=1) and(a[i]<min) then min:=a[i];
end;
if (min=1000) then writeln('Такого числа нет')
else writeln('Минимальное 3-значное число равняется ',min);
<span>end.</span>
П
ы с
л о
е к б
с е а
о к к
с о с т а в
с у о
и ч л
н а к
а
1)машина собирающая грязь
2)подруга ёлки
3)синоним слова "маффин"(булочка)
4)хмурое облако
5)друг человека
6)дикая собака
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.
Мне кажется будет 5^5=3125 символов, если по частной формуле Хартли
Костя - Гирлянды из золотой бумаги;
Женя - Гирлянды из серебристой бумаги;
Дима - Хлопушки из золотой бумаги;
Вадим - Шары из красной бумаги.