Паскаль.
1. Буратино купил n учебников по a сольдо и m ручек по b карандашей по n сольдо. a, b, m, n задаются с клавиатуры. Рассчитать общую стоимость покупки.
2. Среди трёх введённых чисел вывести количество положительных.
3. Найти сумму всех чисел от a до b.
4. Сгенерировать массив. Подсчитать число положительных чисел.

2

Объяснение:

Найдем в таблице станцию с минимальным количеством путей к другим станциям.

Это станция D от неё идёт единственный путь на станцию В и стоимость проезда равна 3.

Сравним эту информацию со схемами:

1) На первой схеме от станции D идёт единственный путь на станцию В и стоимость проезда равна 3. Значит пока данная схема соответствует таблице.

2) На второй схеме от станции D идёт единственный путь на станцию В и стоимость проезда равна 3. Значит пока данная схема соответствует таблице.

3) На третьей схеме от станции D идёт единственный путь на станцию Е и стоимость проезда равна 3. Значит данная схема не соответствует таблице.

4) На четвёртой схеме от станции D идёт единственный путь на станцию С и стоимость проезда равна 3. Значит данная схема не соответствует таблице.

У нас осталось только 2 схемы: первая и вторая.

Теперь найдем в таблице станцию с максимальным количеством путей к другим станциям.

Это станция А от неё идут пути на станции В, С и Е. Стоимость проезда АВ равна 1, АС равна 4 и АЕ равна 1.

Сравним эту информацию с оставшимися схемами:

1) На первой схеме от станции А идут пути на станции В, С и Е. Стоимость проезда АВ равна 1, АС равна 4 и АЕ равна 2. Значит данная схема не соответствует таблице.

2) На второй схеме от станции А идут пути на станции В, С и Е. Стоимость проезда АВ равна 1, АС равна 4 и АЕ равна 1. Значит данная схема соответствует таблице .

У нас осталась только вторая схема.

Сравним остальные данные из таблицы с ней.

Данные по всем остальным станциям из таблицы совпадают со второй схемой.

Увы, нет.

...var Y:array[1..N] of real... ошибка в написании, компилятор сообщит, что тип параметра не может быть описанием массива с границами. Пример:

var a:array [1..n] of real;                                                                                  Procedure ab(var b:array [1..n] of real);

К сожалению переменная и формальный параметр не одного типа.

Стоит использовать Type:

type ba= array [1..n] of real;                                                                                  var a: ba;                                                                                                   Procedure ab(var b:ba);