Question

1. Найти
количество отрицательных чисел во вводимой с клавиатуры последовательности.
Условие окончания ввода – ввод числа 0.
2.
Случайным
образом сгенерировать дату и время. Диапазон изменения годов: 2000 - 2010,
месяцев: 1 - 12, дней: 1-31, часов: 0 - 23, минут: 0 - 59. Вывести
сгенерированное значение в формате: ДД/ММ/ГГГГ ЧЧ:ММ.
3.
Массив А
из 10 элементов заполнен случайными числами от 2 до 7. Вставить элемент со
значением 0 после элемента с номером N. Вывести на экран исходный и
получившийся массивы.

Помогите решить плиз в паскале

Answer 1

1)
var a,q:integer;
begin
a:=1;
while a<>0 do begin
read(a);
if a<0 then inc(q);
end;
writeln('Количество отрицательный чисел: ',q);
end.

2)
var d,m,g,h,min:integer;
begin
d:=random(31)+1;
m:=random(12)+1;
g:=random(11)+2000;
h:=random(24);
min:=random(60);
writeln(d,'/',m,'/',g,' ',h,':',min);
end.

3)
var a:array[1..10] of integer;n,i:integer;
begin
for i:=1 to 10 do
a[i]:=random(6)+2;
read(n);
for i:=1 to 10 do
writeln(a[i]);
for i:=9 downto n do
a[i+1]:=a[i];
a[n]:=0;
for i:=1 to 10 do
writeln(a[i]);
end;