Дан массив. Найти максимальный и минимальный элементы массива и поменять их местами. Выполнение программы Выполнение программы. - презентация

1

2 Дан массив. Найти максимальный и минимальный элементы массива и поменять их местами. Выполнение программы Выполнение программы

3 1. Описание массива 2. Формирование массива и вывод на печать 3. Поиск максимального и минимального элементов массива 4. Вывод их на экран 5. Меняем местами минимальный и максимальный элементы массива 6. Вывод на печать изменённого массива

4 Program MaxMinElem; Uses Crt; Type Mas = Array [1..10] of Real; Var A : Mas; i, n, k 1 k 2 : Integer; max, min, t : Real;

5 Program MaxMinElem; Uses Crt; Var A : Array [1..10] of Real; i, n, k 1 k 2 : Integer; max, min, t : Real;

6 Program MaxMinElem; Uses Crt; Const n=10; Var А: array [1..n] of real; i, n, k 1 k 2 : Integer; max, min, t : Real; - массив А из 10 дробных чисел.

7 BEGIN СlrScr; Write ('Введите n = '); ReadLn (n); For i := 1 to n do begin Write ('A [ ', i, ' ] = '); ReadLn (A[i]) end;

8 BEGIN СlrScr; Write (Число элементов n='); ReadLn(n); For i := 1 to n do begin A[i]:=random(24); Write ('A [ ', i, ' ] =,A[i]:4:0); end;

9 max := A[1]; k 1 :=1; min := A[1]; k 2 :=1; For i := 2 to N do begin If A[i] > max then begin max := A[i]; k 1 := i ; end; If A[i] < min then begin min := A[i]; k 2 := i ; end; end;

10 WriteLn (Номер мах элемента', k 1 ); WriteLn (max= ', max : 5 : 0); WriteLn (Номер min элемента ', k 2 ); WriteLn (min= ', min : 5 : 0);

11 T

12

13 Задать случайным образом 9 элементов числового массива – дробные числа от 0 до 50. В этом массиве: 1. Найти минимальный элемент и увеличить его в 2 раза. 2. Найти максимальный элемент и поменять его местами с последним элементом.