Const n=20;
Var i, k:integer ;s:real ;
A:array [1..200]of Integer ;
Begin
S:=0;
For i:=1 to N do begin
Write(' ') ;
a[i]:=random(41)+150;
S:=s+a[i];
Writeln(' ', a[i]) ;
End;
S:=s/n;
For i:=1 to N do begin
If(a[i] >s) then k:=k+1;
End;
Writeln ( ' ', k) ;
End.
// Выбирайте, тут три цикла, while, repeat и for
//------------------------
program LoopWhile;
begin
var (a, b) := (-10, 10);
while a <= b do
begin
Println(a, Abs(a));
a += 1
end;
end.
//------------------------
program LoopRepeat;
begin
var (a, b) := (-10, 10);
repeat
Println(a, Abs(a));
a += 1
until a > b;
end.
//------------------------
program LoopFor;
begin
var (a, b) := (-10, 10);
for var i := a to b do
Println(i, Abs(i));
end.
От 8 литрового сосуда отлить 5 литров в 5литровый сосуд. <span>
Из 5литрового сосуда отлить 3 литра в 3литровый
сосуд.
Эти же три литра вылей назад в 8-литровый сосуд.
Из 5литрового сосуда вылей оставшиеся 2 литра в 3литровый сосуд.
Из 8литрового сосуда вылей 5 литров в 5литровый сосуд, а литр из 5литрового
сосуда перелей в 3литровый (в 5литровом
сосуде должно остаться 4 литра).
Из 3литрового сосуда перелей 3 литра назад в 8литровый сосуд.
</span>Все. Должно быть поровну
На каком языке программирования????