помогите пожалуйста! вообщем задачи надо составить по паскалю1. Дан массив состоящий из 12 случайных целых чисел от -5 до 12. Все его элементы умножить на последний элемент. 2.Дан массив состоящий их 7 вещественных чисел. Из всех положительных элементов массива вычесть элемент с номером k, из всех отрицательных n ( числа k и n вводятся с клавиатуры). Нулевые элементы оставить без изменения. 3. В массиве хранится информация о росте 25 челловек. Определить, на сколько рост самого высокого человека превышает рост самого низкого. 4. Дан массив целых чисел. Найти номер первого четного элемента массива (массив просматривайте с конца, используя цикл for...downto). Если четных елементов нет. то должно быть напечатано соответствующее сообщение.
1) var a: array[1..12] of integer; begin for i:=1 to 12 do read(a); for i:=1 to 12 do write(a*a[12], ' '); end.
