В боулинге устанавливается n кеглей (n меньше либо равно 10), игрок делает k бросков, за каждый бросок он выбивает участок между кеглями x и y, сколько кеглей ему сбить удалось?
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
const n=20;
var a,b: array[1..n] of integer;
i,k: integer;
begin
randomize;
k:=0;
writeln('1 ìàññèâ:');
for i:=1 to n do
begin
a[i]:=random(12)+1;
write(a[i],' ');
end;
writeln;
writeln('2 ìàññèâ:');
for i:=1 to n do
begin
b[i]:=random(12)+1;
write(b[i],' ');
end;
writeln;
for i:=1 to n do if a[i]=b[i] then k:=k+1;
writeln(к);
end.