Question

помогите пожалуйста! вообщем задачи надо составить по паскалю

1. Дан массив состоящий из 12 случайных целых чисел от -5 до 12. Все его элементы умножить на последний элемент.

2.Дан массив состоящий их 7 вещественных чисел. Из всех положительных элементов массива вычесть элемент с номером k, из всех отрицательных n ( числа k и n вводятся с клавиатуры). Нулевые элементы оставить без изменения.

3. В массиве хранится информация о росте 25 челловек. Определить, на сколько рост самого высокого человека превышает рост самого низкого.
 
4. Дан массив целых чисел. Найти номер первого четного элемента массива (массив просматривайте с конца, используя цикл for...downto). Если четных елементов нет. то должно быть напечатано соответствующее сообщение. 

Answer 1

1)
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.