Перечислите основные составляющие электронной коммерции в сети Интернет.
Ответы
Программа может выглядеть так:
uses Crt;
const n=10;
type Mas=array [1..n] of integer;
var A: Mas;
i, temp, MinInd, MaxInd, Max, Min: integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
begin
A[i]:=10+random(90);
Write (A[i]:5);
end;
WriteLn;
Max:=A[1]; MaxInd:=1;
Min:=A[1]; MinInd:=1;
for i:=2 to n do
begin
if A[i]<Min then
begin
Min:=A[i];
MinInd:=i;
end
else
if A[i]>Max then
begin
Max:=A[i];
MaxInd:=i;
end;
end;
temp:=A[MaxInd];
A[MaxInd]:=A[MinInd];
A[MinInd]:=temp;
WriteLn;WriteLn;
for i:=1 to n do
Write (A[i]:5);
WriteLn;
ReadLn;
end.
uses Crt;
const n=10;
type Mas=array [1..n] of integer;
var A: Mas;
i, temp, MinInd, MaxInd, Max, Min: integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
begin
A[i]:=10+random(90);
Write (A[i]:5);
end;
WriteLn;
Max:=A[1]; MaxInd:=1;
Min:=A[1]; MinInd:=1;
for i:=2 to n do
begin
if A[i]<Min then
begin
Min:=A[i];
MinInd:=i;
end
else
if A[i]>Max then
begin
Max:=A[i];
MaxInd:=i;
end;
end;
temp:=A[MaxInd];
A[MaxInd]:=A[MinInd];
A[MinInd]:=temp;
WriteLn;WriteLn;
for i:=1 to n do
Write (A[i]:5);
WriteLn;
ReadLn;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
информатику информатику заходим все сюда или вам не нуж ныы
Автор: Yevgeniya Bessonov
Які властивості має сцена? МНЕ ОЧЕНЬ
Автор: srgymakarov
1.какое количество информации несет сообщение о том, что встреча назначена на 15-е число.
Автор: Vladimirovna1997
По информатике: вычислить проценты доходачто дальше писать? там где жёлтая полосочка
Автор: Negutsa_Kseniya524
A=int(input(введите данные))
Автор: Маринина_Елена
PYTHON С цикла while распечатать ряд: 1, 2, 3, 4...50
Автор: nastya3213868
uses Crt;
const n=10;
type Mas=array [1..n] of integer;
var A: Mas;
i, temp, MinInd, MaxInd, Max, Min: integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
begin
A[i]:=10+random(90);
Write (A[i]:5);
end;
WriteLn;
Max:=A[1]; MaxInd:=1;
Min:=A[1]; MinInd:=1;
for i:=2 to n do
begin
if A[i]<Min then
begin
Min:=A[i];
MinInd:=i;
end
else
if A[i]>Max then
begin
Max:=A[i];
MaxInd:=i;
end;
end;
temp:=A[MaxInd];
A[MaxInd]:=A[MinInd];
A[MinInd]:=temp;
WriteLn;WriteLn;
for i:=1 to n do
Write (A[i]:5);
WriteLn;
ReadLn;
end.