Нужно придумать сказку про интернет для детей.

Давным давно , в большом всемирном лесу жил пожива неведомый зверек по имени интернет.     продолжение в документе

Const   k=10;   {k - количество чисел в массиве} var   a: array[1..k] of integer;       i,summ,n: integer;   {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}       sr: real; {sr - среднее арифметическое}  begin  summ: =0; n: =0; {обнуляем счетчики}   for i: =1 to k do        begin          a[i]: =random(50); {заполняем массив случайными числами}           write (a[i],' ');   {выводим массив}           if a[i] mod 2=0 then                begin                   summ: =summ+a[i];   {находим сумму элементов массива с четными значениями}                  n: =n+1              end      end;   sr: =summ/n;   {находим среднее арифметическое}  writeln;   writeln (sr: 0: 2) {выводим среднее арифметическое} end.

3) var x, y, min, max: real; label m1; begin write('x='); readln(x); write('y='); readln(y); if x> y then begin min: =x; max: =y; goto m1; end else min: =y; max: =x; goto m1 m1: writeln('min=', min: 8: 3, '  max=', max: 8: 3); end. 2) var a, b, c: real; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a=b) and (b=c) then begin writeln('треугольник равносторонний'); end else writeln('треугольник неравносторонний'); end. 1) var a, b: real; begin write('допустимая скорость ='); readln(a); write('скорость водителя ='); readln(b); if (a=b) or (a> b) then writeln('водитель не превысил скорость'); if a< b then writeln('водитель превысил скорость'); end. я надеюсь, что я правильно поняла первой и второй о: