var i,min:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(45)-22;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do begin
if a[i]<0 then min:= min+1;
end;
writeln('Количество отрицательных элементов:',min);
end.
(100)10 = (01100100)2
и единиц тогда получается = 3
Общее количество клеток = 9*9 = 81
Вероятность попасть в желтый однопалубный = 3/81;
вероятность попасть в красный однопалубный = 14/81
Вероятность потопить корабль = 3/81*0,46 + 14/81*0,71 ≈ 0,14
В процентах - 14
Var x: array[1..8] of longint;
Var i,a : longint;
Begin
for i:= 1 to 8 do
begin;
readln(a);
x[i] := a;
end;
Writeln('Массив K:');
for i:= 1 to 8 do
begin;
writeln(',i,' = ',x[i]);
end;
Readln;
end.