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