Составить программу в массиве с N числами поменять местами наибольшее и
Составить программку в массиве с N числами поменять местами наибольшее и минимальное значения
Задать свой вопрос
Лидия Рокко
на каком языке?
Данька Злотенко
паскаль
1 ответ
Татьяна Серочкина
Программка может смотреться так:
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]lt;Min then
begin
Min:=A[i];
MinInd:=i;
end
else
if A[i]gt;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]lt;Min then
begin
Min:=A[i];
MinInd:=i;
end
else
if A[i]gt;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.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов