Var k,m: Integer;
Dat: array[1..11] of integer;
begin
Dat[1]:=20;
Dat[2]:=25;
Dat[3]:=19;
Dat[4]:=25;
Dat[5]:=26;
Dat[6]:=22;
Dat[7]:=24;
Dat[8]:=28;
Dat[9]:=26;
Dat[10]:=21;
Dat[11]:=27;
m:=30;
for k:=1 to 11 do
if Dat[k] <m then
m:=Dat[k];
writeln(m);
end.
Ответ: 19.
Ответ: 328
------
Набор букв для возможности опубликовать ответ
const
N=5;
var
a:array [1..N] of integer;
i,k,count:integer;
begin
for i:=1 to N do
begin
a[i]:=random(20);
write(a[i]);
end;
for i:=1 to N do
begin
count:=0;
k:=2;
if a[i] < 2 then count:=1;
while (k*k<=a[i]) and (count = 0) do
begin
if a[i] mod k = 0 then inc(count);
inc(k);
end;
if count = 0 then write(i);
end;
end.
Управляющий объект: Человек
Объект управления 1: Кнопка
Объект управления 2: Часы
Цель управления: Вовремя дать звонок учащимся