Напишите программу,в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён ноль) и определение наибольшего из введённых чисел.используйте оператор while. решить в паскале.
Const N = 13; Var A:array[1..N] of integer; i,Min:integer; Begin Randomize; Min:=1; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(A[i],' '); if A[Min]>A[i] then Min:=i; End; WriteLn; WriteLn(Min) End.
Const N = 13; Var A:array[1..N] of integer; i,j,Min,B:integer; Begin Randomize; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(A[i],' '); End; WriteLn; WriteLn; For i:= 1 to N do Begin Min:=i; For j:=i+1 to N do if A[Min]>A[j] then Min:=j; B:=A[Min]; A[Min]:=A[i]; A[i]:=B; Write(A[i],' ') End; End.
Const N = 13; Var A:array[1..N] of integer; i,j,Max,B:integer; Begin Randomize; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(A[i],' '); End; WriteLn; WriteLn; For i:= 1 to N do Begin Max:=i; For j:=i+1 to N do if A[Max]<A[j] then Max:=j; B:=A[Max]; A[Max]:=A[i]; A[i]:=B; Write(A[i],' ') End; End.
Саша- Самойлов Володя- Левин Миша- Петриков (т.к только хозяин дома достанет гербарий из своего шкафа) Юра- Богачёв
номер 2
переливаем 2 литра в 2-ух литровую банку из 6-ти литровой (1 переливание) (получилось и у той и у другой мёда по 3 литра) Из двух литровой доливаем литр, который вмещается в 4-ёх литровую банку (2 переливание) последний литр из 2-ух литровой переливаем в 6ти литровую (3 переливания)
почему-то решилось за 3 переливания
номер 3
2,4,8,10,20,22,44,46...
Прибавление 2, умножение на 2, прибавление 2 и так далее
3,6,12,15,30, 33...
Прибавление 3, умножение на 2, прибавление 3 и т.д
1,3,4,12,13, 39, 40, 120, 121...
Умножение на 3, прибавление 1, умножение на 3 и т.д
n,max:Integer;
Begin
max:=1;
n:=1;
While(n<>0) do
begin
Read(n);
if (n>max) then max:=n;
end;
Writeln('Max number = ',max);
end.