Ребят даю 25 балов за инфооматику нужно паскаль

Question

Ребят даю 25 балов за инфооматику нужно паскаль

---

Comments

Программа ищет минимальное среди заданных значений. Это 19.

Answer 1

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:=Dat[k];
writeln(m);
end.

Ответ: 19.