В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Kamper5678
Kamper5678
29.07.2022 03:51 •  Информатика

Pascalabc, алгоритм и программа

Показать ответ
Ответ:
Mаster001
Mаster001
02.10.2020 11:30

Язык: Pascal.

var

   a: array [1..20] of integer;  {объявляем целочисленный массив на 20 элементов}

   i, min, t, m: integer;  {i - счетчик, min - минимум, t, m - временные переменные}

begin  

{рандом 20 чисел в диапазоне [-20;12]}

 randomize;  

 for i:=1 to 20 do

   a[i]:=random(33)-20;

   min:=a[1];  //присваиваем минимуму первый элемент.

{цикл начинается с 2, чтобы не делать лишнюю итерацию}

 for i:=2 to 20 do  

 begin

{если минимум больше текущего значения элемента массива, то минимуму присваивается это значение и запоминаем его индекс, чтобы в дальнейшем поменять минимальный элемент с последним.}

   if min > a[i] then

   begin

   min:=a[i];

   m:=i;

   end;

 end;

{выводим старый массив}

 Writeln('Старый массив:');

 for i:=1 to 20 do

   writeln(a[i]);

{меняем местами последний элемент с минимальным}

 t:=a[20];

 a[20]:=min;

 a[m]:= t;

{выводим новый массив}

 Writeln('Новый массив:');

 for i:=1 to 20 do

   writeln(a[i]);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота