Дан одномерный массив, содержащий 20 целочисленных элементов. найти максимальный и минимальный элементы. а) поменять местами максимальный и минимальный элементы; б) поменять местами первый и последний элементы. решать на языке pascal.

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-99,99); a.Println;
  var (imin,imax):=(a.IndexMin,a.IndexMax);
  Writeln('Минимальный элемент ',a[imin],', максимальный ',a[imax]);
  Swap(a[imin],a[imax]); a.Println; // меняем местами max и min
  Swap(a[0],a[a.Length-1]); a.Println // меняем местами крайние
end.

Пример
-45 78 -68 -89 -95 39 55 54 46 69 4 -36 -81 61 47 -76 0 -35 65 -47
Минимальный элемент -95, максимальный 78
-45 -95 -68 -89 78 39 55 54 46 69 4 -36 -81 61 47 -76 0 -35 65 -47
-47 -95 -68 -89 78 39 55 54 46 69 4 -36 -81 61 47 -76 0 -35 65 -45

1) - понятность

- дискретности

- определенности

- результативности

- массивности

2) - словесная

- графическая

- псевдокоды

- программы

3) Блок-схема- это тип схемы (графических моделей), описывающих алгоритмы или процессы

4) 1-этап Постановки задачи

а) сбор информации о задаче

б) формулировка условия задачи

в) определение конечных целей решения задачи

г) определение формы выдачи результатов

д) описание данных

2-этап Анализ и исследование задачи, модели

3-этап Разработка алгоритма

5) потому что это пошаговое выполнение программы

min = 1

for i in range(0, len(matrix) ) :

for k in range(0,len(matrix[i])) :

 b = matrix[i][k]

 if b < min :

  ind =[i,k]

  min=b

max = 1

for i in range(0, len(matrix) ) :

for k in range(0,len(matrix[i])) :

 b2 = matrix[i][k]

 if b2 > max :

  ind2 =[i,k]

  max=b2

Объяснение:

min и max - временные переменные , используемые в цикле  

min - минимальное значение матрицы max - максимальное значение

matrix - собственно сама матрица

ind - массив хранящий индекс матрицы с минимальный значением

ind2 - массив хранящий индекс матрицы с максимальным значением