3. Определите вид топологии. [1]

Задача 1: 1

Задача 2:

begin

s:=0; k:=1;

while k < 11 do  begin

s:=s+k; k:=k+1;

end;

write(s);

end.

Задача 3:

11 10 9 8 7 7 10 11 12 13 14

Задача 4:

const N = 20;

const MAX = 100;

const MIN = -100;

var A: array [1..N] of integer;

var i,s: integer;

begin

randomize();

s:=-1;

writeln('Исходный массив: ');

for i:=1 to N do

 begin

 A[i]:=random(MAX-MIN+1)+MIN;

 if (A[i]>0) and (A[i] mod 5 = 0) then

   begin

   if (s=-1) then s:=A[i]

   else if (A[i]<s) then s:=A[i];

   end;

 write(A[i],' ');

 end;

writeln();

if (s<>-1) then writeln('Минимальное значение среди положительных',

' элементов массива кратных 5: ',s)

else writeln('Не найдено');

end.

program z1;

var

 q, w, e, r, t, y, u, i, o, p, a, s, d, f, g, h, j, k, l, z: integer;

begin

 writeln('Введите рост 1 учащегося');

 readln(q);

 writeln('Введите рост 2 учащегося');

 readln(w);

 writeln('Введите рост 3 учащегося');

 readln(e);

 writeln('Введите рост 4 учащегося');

 readln(r);

 writeln('Введите рост 5 учащегося');

 readln(t);

 writeln('Введите рост 6 учащегося');

 readln(y);

 writeln('Введите рост 7 учащегося');

 readln(u);

 writeln('Введите рост 8 учащегося');

 readln(i);

 writeln('Введите рост 9 учащегося');

 readln(o);

 writeln('Введите рост 10 учащегося');

 readln(p);

 writeln('Введите рост 11 учащегося');

 readln(a);

 writeln('Введите рост 12 учащегося');

 readln(s);

 writeln('Введите рост 13 учащегося');

 readln(d);

 writeln('Введите рост 14 учащегося');

 readln(f);

 writeln('Введите рост 15 учащегося');

 readln(g);

 writeln('Введите рост 16 учащегося');

 readln(h);

 writeln('Введите рост 17 учащегося');

 readln(j);

 writeln('Введите рост 18 учащегося');

 readln(k);

 writeln('Введите рост 19 учащегося');

 readln(l);

 writeln('Введите рост 20 учащегося');

 readln(z);

 writeln('Средний рост учащихся ', (q + w + e + r + t + y + u + i + o + p + a + s + d + f + g + h + j + k + l + z) / 20, ';');

end.