Это первое задание, на самом деле оно не очень сложное)
Налить воду в 5 л ведро
Вылить в 9 л ведро
Снова налить в 5 л ведро И вылить в 9 л
И в 5л ведре останется 1 литр
Program z4; Var a: array [1..1000] of integer; i, sum, n:integer; S_R: real;Begin write('Введите кол-во элементов - '); readln(n); for i := 1 to n do begin a[i] := random (30); sum:= sum + a[i]; end; S_R:= sum / n; writeln('Cреднее арифметическое - ', S_R); for i := 1 to n do if (a[i] >= S_R) then write(a[i],' '); End.
Нуу... похоже имеется ввиду
Текстовый редактор
Графический редактор
и Музыкальный редактор....
1 это бабочка
2 бесконечность с разрывом