Решение задачи по написанию программы на поиск максимума в массиве

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

.

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

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
26

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

.

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

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