program kurs_v;
const x=20;
var n:integer;
A:array[1..x] of integer;
i,min:integer;
begin
min:=A[1];
for i:=2 to N do
begin
If A[i]<min then min:=a[i];
end;
write(min);
end.
Var
a,b : integer;
begin
writeln('vvedite 1 chislo')
readln(a)
writeln('vvedite 2 chislo)
readln(b)
writeln(a + b)
end.
uses crt;
var a:array[1..100,1..100] of integer;
n,m,s:integer;
begin
clrscr;
randomize;
write('n='); read(n);
write('m='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100);
writeln('massiv:');
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:=1 to n do
for m:=1 to m do
begin
if (a[n,m] mod 5 =0)and (a[n,m] mod 3<>0) then
begin
s:=n;
write('stroka ',s,'; ');
end;
end;
end.
..................................
Ответ:
stones = int(input())
while stones > 0:
take = int(input())
stones -= take
print(stones)
Объяснение:
Просто скопируй, у меня работает(как и написано в твоём тексте).