Var
A: array [1..10] of integer;
min,i:integer;
begin
i:=1
while i<11 do
begin
readln(A[i]);
i:=i+1;
end;
i:=1;
n:=A[1];
repeat
if min>A[i] then
min:=A[i]
i:=i+1;
until I=10;
A[10]:=min;
end
1гбайт=1024мбайт
1/2гбайт=512мбайт
Вероятность того, что из первой все три шара окажутся белыми, а потом и из второй, тоже белыми:
≈0,51%
Алгоритм может быть представлен в следующих формах
словесная (устно или письменно)
графическая - в виде схемы
на алгоритмическом языке
в виде программного кода
следовательно, на английском языке представлен быть не может