это вещественное число, так что real
Program gt;
label 1;
var a:array[1..30]of integer;
i,min:integer;
begin
randomize;
min:=200;
1:
for i:=1 to 30 do
begin
a[i]:=random(101);
if(a[i]<min)and(a[i]>=20)then min:=a[i];
end;
if(min<>200)then begin
for i:=1 to 30 do
write(a[i],' ');
writeln;
writeln(min);
exit;
end;
if(min=200)then goto 1;
end.
РАССТОЯНИЕ МЕЖДУ ЧЕМ ЛИБО
На вкладке Главная<span> щелкни раскрывающийся список в поле </span>Числовой<span>, выбери пункт </span>Другие числовые форматы<span> и открой вкладку </span>Число<span>.
</span>В поле Числовые форматы<span> выдели пункт </span>(все форматы)<span> и в поле </span>Тип<span> введите значение </span>дддд<span>, чтобы отображались полные названия дней недели (понедельник, вторник и т. д.), либо </span>ддд<span>, чтобы отображались сокращенные названия (Пн, Вт, Ср и т. д.).</span>