Решение задачи по написанию программы на поиск номера (индекса) минимального элемента в массиве

Написать на трех языках программирования Pascal, C++, Школьный алгоритмический язык программу по поиску номера (индекса) минимального числа в массиве из 5 элементов, Массив задается внутри программы присваиванием значения ячейке массива (пример dat[2]:=44;  ---> в ячейку 2 массива dat записали значение 44)

Массив

.

Блок схема программы:

Кумир (символ | в начале строки обозначаент начало комментария, т.е. данная часть кода в алгоритме не участвет, а присутвует лишь для пояснения отдаваемых команд)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

алг 
нач
| резервируем область памяти для массива dat
цел таб dat[1:5]
| резервируем область памяти для переменных i, nommin
цел i,nommin
dat[1]:=3;
dat[2]:=4;
dat[3]:=5;
dat[4]:=7;
dat[5]:=9;
|в переменную nommin помещаем индекс первого элемента массива
nommin:=1;
| цикл со счетчиком i для перебора всех элементов массива
нц для i от 2 до 5  
| если значение элемента массива меньше значения, хранящегося в ячейке с номером nommin,
| то в nommin помещаем индекс (номер) этого элемента
если dat[i]<dat[nommin] то nommin:=i все
кц
вывод "индекс минимального числа массива = ", nommin
кон

.

С++ (символ // в начале строки обозначаент начало комментария, т.е. данная часть кода в алгоритме не участвет, а присутвует лишь для пояснения отдаваемых команд)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

 
#include <iostream>
using namespace std;
 
int main()
{
//резервируем область памяти для массива dat и переменных i, nommin
int dat [5],i,nommin;
dat[1]=3;
dat[2]=4;
dat[3]=5;
dat[4]=7;
dat[5]=9;
//в переменную nommin помещаем индекс первого элемента массива
nommin=1;
//цикл со счетчиком i для перебора всех элементов массива
for (i=2;i<=5;i++){
//если значение элемента массива меньше значения, хранящегося в элементе с номером nommin,
//то в nommin помещаем значения индекса (номер) элемента 
if (dat[i]<dat[nommin]){nommin=i;}}
//вывод nommin за пределами цикла
cout << "index minimalnogo chisla massiva = "<< nommin;
 
}
 

.

Pascal (символ // в начале строки обозначаент начало комментария, т.е. данная часть кода в алгоритме не участвет, а присутвует лишь для пояснения отдаваемых команд)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

//резервируем область памяти для массива dat и переменных i, nommin
var
  dat: array [1..5] of integer;
 
var
  i, nommin: integer;
 
begin
  //заполняем массив числами
  dat[1]:=3;
  dat[2]:=4;
  dat[3]:=5;
  dat[4]:=7;
  dat[5]:=9;
  //в переменную nommin помещаем номер первого элемента массива
  nommin := 1;
  //цикл со счетчиком i для перебора всех элементов массива
  for i := 2 to 5 do 
    //если значение элемента массива меньше значения, хранящегося в элементе с номером nommin,
    //то в nommin помещаем номер (индекс) этого элемента 
    if (dat[i] < dat[nommin]) then nommin:= i;
  //вывод nommin за пределами цикла
  write('номер минимального элемента массива = ', nommin);
end.

• Коменты VK
• Анонимные коменты, G+ или Facebook