Question

Пожалуйста решение в Turbo/Free pascal

1) Написать программу. Массив из 10 чисел заполнить с клавиатуры. Определить сколько двузначных чисел начинаются на нечётную цифру.

2) Написать программу. Массив из 20 чисел заполнить случайными числами [-100, 100]. Найти величину максимального отклонения (модуля разности) между любыми двумя элементами массива.

3) Написать программу. Массив из 10 чисел заполнить с клавиатуры. Определить сумму чисел, начинающихся на цифру 5.

Помогите пожалуйста, к утру нужны программы.

Answer 1

Ваши задачи одной программой. Если нужно порознь, - "разбейте" на три сами. Там указано циферками в комментариях перед каждой задачей: //1 //2 //3

d296f28147bebfc862d1c7b7c6d85862.pas

Answer 2

кроме того тут во второй задаче еще и индексы выводятся, по условию не нужно, можете убрать строки, где встречаются переменные i2 и j2

Answer 3

вывод только полностью не убирайте, там выводится Max

Answer 4

скачайте файл еще раз, там ошибка была в третьей задаче, нужно было сумму посчитать, а считалось количество