1) Дан одномерный массив размерностью n. Заменить положительные элементы массива единицами, а отрицательные нулями.

Условие окончания ввода – ввод числа 0.

2.Случайным образом сгенерировать дату и время. Диапазон изменения годов: 2000 - 2010,
месяцев: 1 - 12, дней: 1-31, часов: 0 - 23, минут: 0 - 59. Вывести сгенерированное
значение в формате: ДД/ММ/ГГГГ ЧЧ:ММ.

3.Массив А из 10 элементов заполнен случайными числами от 2 до 7. Вставить
элемент со значением 0 после элемента с номером N.
Вывести на экран исходный и получившийся массивы.

4.Массив из 10 целых чисел заполнить случайными числами от -5 до 5.
Произвести сортировку массива. Вывести на экран исходный и отсортированный массивы.
Сортировать по убыванию прямым выбором
5.Написать программу, которая запрашивает размерность квадратного двумерного массива, заполняет
массив случайными числами от 1 до 5 и зеркально отражает ее элементы относительно главной
диагонали.

6.Написать программу, которая выводит на экран таблицу символов с кодами от 48 до 127
в формате «символ = код».




Помогите решить плиз на кону допуск к зачету.

расположенных между максимальным и минимальным элементами.

Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами

ну или исправьте мое пжл

program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);

for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1

else for I:=c+1 to b-1 do p:=p*mas[i];

if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;

close (g);
end.