алг
нач
цел i, k, M
массив цел Dat[1:5]
Dat[1] := 70
Dat[2] := 80
Dat[3] := 40
Dat[4] := 60
Dat[5] := 80
k := 1
M := Dat[k]
нц для i от 2 до 5
если Dat[i] > M то
M := Dat[i]
k := i
все
кц
вывод M, нс, k
кон
Блок-схема:
┌──────────────────────┐
│ Начало │
└──────────────────────┘
↓
┌──────────────────────┐
│ i, k, M: целые │
│ Dat[1:5]: массив целых│
└──────────────────────┘
↓
┌──────────────────────┐
│ Dat[1] := 70 │
│ Dat[2] := 80 │
│ Dat[3] := 40 │
│ Dat[4] := 60 │
│ Dat[5] := 80 │
└──────────────────────┘
↓
┌──────────────────────┐
│ k := 1 │
│ M := Dat[k] │
└──────────────────────┘
↓
┌──────────────────────┐
│ i := 2 │
└──────────────────────┘
↓
┌───────────────┐
│ i <= 5 ? ├─── Да ──→ ┌──────────────────────┐
└───────────────┘ │ │ Dat[i] > M ? ├─── Да ──→ ┌──────────────────────┐
│ │ └──────────────────────┘ │ │ M := Dat[i] │
│ │ Нет │ └──────────────────────┘
│ │ │ ↓
│ │ │ ┌──────────────────────┐
│ │ │ │ k := i │
│ │ │ └──────────────────────┘
│ │ │ ↓
│ │ │ ┌──────────────────────┐
│ │ │ │ i := i + 1 │
│ │ │ └──────────────────────┘
│ │ │ ↓
│ │ │ ┌──────────────────────┐
│ │ │ │ i <= 5 ? │
│ │ │ └──────────────────────┘
│ │ │ Нет │
│ │ └──→ ┌──────────────────────┐
│ │ │ Вывод M, k │
│ │ └──────────────────────┘
│ │ ↓
│ │ ┌──────────────────────┐
│ │ │ Конец │
│ │ └──────────────────────┘
│ │
└────── Нет ──────────────────────────────────────────┘
Ответ: Листинг и блок-схема программы