Информатика спасите меня

Разберём программу и нарисуем блок-схемы для обеих задач.

---

### **Разбор первой программы**

#### **Код на Pascal**
```pascal
var a: array [1..3] of integer;
i, m, n: integer;
begin
for i := 1 to 3 do
read(a[i]);

m := a[1];
n := a[1];

for i := 1 to 3 do
begin
if m < a[i] then
m := a[i];

if n > a[i] then
n := a[i];
end;

writeln(m - n);
end.
```
#### **Разбор кода**
1. Считываем 3 числа в массив `a`.
2. Инициализируем `m` и `n` первым элементом массива.
3. Проходим по массиву:
- Если текущий элемент больше `m`, обновляем `m`.
- Если текущий элемент меньше `n`, обновляем `n`.
4. Выводим разность `m - n`.

#### **Что выведет программа при входных данных `-1 5 3`?**
- `m = max(-1, 5, 3) = 5`
- `n = min(-1, 5, 3) = -1`
- `m - n = 5 - (-1) = 6`

**Ответ:** `6`

---

### **Блок-схема первой программы**
(Находит разницу между максимальным и минимальным значением в массиве)

```
┌───────┐
│ Start │
└───┬───┘
↓
┌──────────────────────┐
│ Ввод массива a[1..3] │
└──────────────────────┘
↓
┌──────────────────────┐
│ m := a[1], n := a[1] │
└──────────────────────┘
↓
┌────────────┐
│ i = 1 to 3 │
├────────────┤
│ if m < a[i]│
│ then m:=a[i]│
├────────────┤
│ if n > a[i]│
│ then n:=a[i]│
└────────────┘
↓
┌─────────────┐
│ Вывод m - n │
└─────────────┘
↓
┌───────┐
│ Stop │
└───────┘
```

---

### **Вторая задача: Количество неотрицательных элементов в массиве [1..4]**

#### **Алгоритм**
1. Ввод массива `a[1..4]`.
2. Инициализация счётчика `count = 0`.
3. Перебор всех элементов массива:
- Если `a[i] >= 0`, увеличиваем `count`.
4. Вывод `count`.

#### **Блок-схема**
```
┌───────┐
│ Start │
└───┬───┘
↓
┌──────────────────────┐
│ Ввод массива a[1..4] │
└──────────────────────┘
↓
┌────────────┐
│ count := 0 │
└────────────┘
↓
┌────────────┐
│ i = 1 to 4 │
├────────────┤
│ if a[i] >= 0│
│ then count++│
└────────────┘
↓
┌──────────────┐
│ Вывод count │
└──────────────┘
↓
┌───────┐
│ Stop │
└───────┘
```

Эта программа посчитает, сколько неотрицательных чисел в массиве.

Хочешь, чтобы я сгенерировал изображения блок-схем?