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

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

.

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

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, nomx
int dat [5],i,nomx;
dat[1]=3;
dat[2]=4;
dat[3]=5;
dat[4]=7;
dat[5]=9;
//в переменную nomx помещаем индекс первого элемента массива
nomx=1;
//цикл со счетчиком i для пербора всех элементов массива
for (i=2;i<=5;i++){
//если значение элемента массива больше значения, хранящегося в элементе с номером nomx,
//то в nomx помещаем значения индекса (номер) элемента 
if (dat[i]>dat[nomx]){nomx=i;}}
//вывод nomx за пределами цикла
cout << "index maximalnogo chisla massiva = "<< nomx;
 
}
 

.

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

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