Type LinMass = array [1..1000] of Integer;
<span>Var A : LinMass; N, i, j : Integer; </span>
begin
Write('Количество элементов массива: '); ReadLn(N);
For I := 1 To N Do
Begin
Write('Введите A[', I, '] '); ReadLn(A[i]);
End;
i:=1;
while i <= n do
if (A[i] mod 2 = 0) and (A[i] mod i = 0) and (A[i] div 1000 = 0) and (A[i] div 100 > 0)
then begin
for j:=i+1 to n do A[j-1]:=A[j];
n:=n-1
end
else i:= i+1;
For I := 1 To N Do
write(a[i]:6);
<span>end.</span>
АХ^A = БАХ
Очевидно, что А не равно 1, так как AX^1 = AX.
A также не может быть >=3, так как даже при возведении минимального двузначного числа в 3 степень получится четырехзначное число (10^3 =1000).
Следовательно, A=2
Так как в числах AX и БАХ последние цифры совпадают, то Х может быть 1, 5 или 6.
21^2 = 441 - не подходит
25^2 = 625 - подходит
26^2 = 676 - не подходит
Ответ: 25^2 = 625
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.
Ну по скольку в текстовом документе файла mp3 не может быть, он в папке raznoe
Uses crt;
const N=30;
var a:array [1..N] of integer;
i,sum,k:integer;
sr:real;
begin
for i:=1 to N do
begin
readln(a[i]);
sum:=sum+a[i];
end;
sr:=sum/N;
for i:=1 to N do
if a[i]<sr then inc(k);
writeln(k);
<span>end.</span>