ЗАВДАННЯ 1. Обробка одновимірних масивів 1. Скласти блок-схему алгоритму розв’язування задачі.
2. Написати програму реалізації алгоритму з обов’язковими коментарями.
3. Проаналізувати достовірність отриманих результатів обчислень.

Підрахувати середнє арифметичне всіх додатних елементів у даному
одновимірному масиві. Виконати сортування елементів масиву за
зростанням, використовуючи метод екстремальних елементів.

2. var

r: integer;

result: string;

begin

write('вводите число от 1 до 12: ');

readln(r);

case r of

1: Result := 'январь';

2: Result := 'февраль';

3: Result := 'март';

4: Result := 'апрель';

5: Result := 'май';

6: Result := 'июнь';

7: Result := 'июль';

8: Result := 'август';

9: Result := 'сентябрь';

10: Result := 'октябрь';

11: Result := 'ноябрь ';

12: Result := 'декабрь';

end;

writeln(' месяц : ',result);

end.

Объяснение:

я написал ответ только к 2 задаче

постарайся сам сделать 1 ую задачку.

2. var

r: integer;

result: string;

begin

write('вводите число от 1 до 12: ');

readln(r);

case r of

1: Result := 'январь';

2: Result := 'февраль';

3: Result := 'март';

4: Result := 'апрель';

5: Result := 'май';

6: Result := 'июнь';

7: Result := 'июль';

8: Result := 'август';

9: Result := 'сентябрь';

10: Result := 'октябрь';

11: Result := 'ноябрь ';

12: Result := 'декабрь';

end;

writeln(' месяц : ',result);

end.

Объяснение:

я написал ответ только к 2 задаче

постарайся сам сделать 1 ую задачку.