Все элементы массива до минимального элемента переписать в массив В - Turbo Pascal
Формулировка задачи:
Даны 3 задачи, к ним нужно составить блок схему и написать программу на паскале.
1.Дан массив А(25). Все элементы до минимального элемента переписать в массив В, элементы после максимального в массив С.
Помогите пожалуйста! Нужен код на паскале(желательно с описанием переменных) и блок-схему.Решение задачи: «Все элементы массива до минимального элемента переписать в массив В»
textual
Листинг программы
program mas; uses crt; var A:array[1..25] of integer; B:array[1..25] of integer; C:array[1..25] of integer; i,j,min,mini,max,maxi:integer; begin clrscr; writeln('vvedite elementi massiva'); for i:=1 to 25 do begin write('A[',i,']='); readln(A[i]); end; min:=a[1]; mini:=1; for i:=1 to 25 do begin if (a[i]<min)then begin min:=a[i]; mini:=i; end; end; max:=a[1]; maxi:=1; for i:=1 to 25 do begin if (a[i]>max)then begin max:=a[i]; maxi:=i; end; end; for i:=1 to mini do b[i]:=a[i]; j:=1; for i:=maxi to 25 do begin c[j]:=a[i]; j:=j+1; end; writeln('massiv B:'); for i:=1 to mini do begin write(B[i]); end; writeln('massiv C:'); for i:=maxi to 25 do begin write(C[i]); end; readln; end.
Объяснение кода листинга программы
Этот код написан на языке Turbo Pascal и выполняет следующие действия:
- Выводит сообщение
Введите элементы массива
. - Считывает 25 элементов массива A и сохраняет их в массиве B.
- Находит минимальный элемент в массиве A и сохраняет его и его позицию в массиве B.
- Находит максимальный элемент в массиве A и сохраняет его и его позицию в массиве B.
- Копирует все элементы массива A от минимального до максимального в массив C.
- Выводит сообщение
Массив B:
. - Выводит каждый элемент массива B.
- Выводит сообщение
Массив C:
. - Выводит каждый элемент массива C.
- Выводит сообщение
Окончание
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д