Pascal ABC.Net Вводится массив из N целых чисел. Поменять в нем местами самое бо...

August 2022 1 27 Report

Pascal ABC.Net
Вводится массив из N целых чисел. Поменять в нем местами самое большое и само маленькое числа.

Answers & Comments

fasalv Var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
min := a[1];
max := a[1];
   min_i := 1; {номер минимального}
max_i := 1;
for i := 2 to n do
begin
if min > a[i] then
begin
  min := a[i];
min_i := i;
end;
   if max < a[i] then
   begin
  max := a[i];
  max_i := i;
   end;
   end;
   tmp := a[max_i];
a[max_i] := a[min_i];
   a[min_i] := tmp;
for i := 1 to n do
write(a[i], ' ');
end.

Answers & Comments

s2e4df5d0223786a753396e263a438efd2 76483

rabotaem v pascal abc 1 najti kolichestvo cifr menshe 6 v celom x test 254904

matematika 6 klass dlinu storony kvadrata uvelichili na 20 na skolko procentov

pascal abc v dvumernom chislovom massive raznomernosti nn poschitat kolichestvo e

tex chto ono oboznachaet mozhno li ego kak to privesti k primitivnym operaciyam

pascal abc zadacha s while for if na promezhutke ot a do b najti vse chisla i

rabotaem v pascal abcnet na promezhutke ot a do b najti vse chisla i ih koliches

рекомендуемые вопросы

Helpful Links

Helpful Social