Написати циклічний алгоритм й програму з масивом. створити масив а для 8 чисел, заповнити його додатними й від'ємними числами, знайти найбільше число max та його номер imax.
Const N = 8; Var A:array[1..N] of integer; i,iMax:integer; Begin Randomize; Write('Исходный массив:'); iMax:=1; For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); if A[i] > A[iMax] then iMax:=i; End; WriteLn; WriteLn('Max = ',A[iMax]); WriteLn('iMax = ',iMax); End.
Var n,m,osn: integer; function nmbdec(var n,osn: integer): integer; var nmb,l,s,k: integer; begin nmb:=0; s:=0; k:=n; l:=1; while k>0 do begin s:=k mod 10; k:=k div 10; nmb:=nmb+l*s; l:=l*osn; end; Result:=nmb; end; { конец функции} begin write('число: '); readln(n); write('квадрат какого числа: '); readln(m); osn:=10; while osn>=2 do begin osn:=osn-1; if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then begin writeln('основание системы = ',osn); break; end; end; end.
N = 8;
Var
A:array[1..N] of integer;
i,iMax:integer;
Begin
Randomize;
Write('Исходный массив:');
iMax:=1;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] > A[iMax] then iMax:=i;
End;
WriteLn;
WriteLn('Max = ',A[iMax]);
WriteLn('iMax = ',iMax);
End.