Друг попросил найти ему как сделать прогу в Pascal, сам он работает и нет времени на это, вообщем нужно доработать вот эти коды, переделать всё в один код и чтобы работал, сама суть программы такая - Задать массив генератором случайных чисел в диапазоне [-20;10] найти максимальный элемент массива и вывести на экран все нечетные элементы.
Сам я учусь не по этой специальности и вообще не шарю, так что тапками не кидайтесь)

Ввод размера массива n
for i:=1 to n do
begin
a[i]:=-20+random(31);
write(a[i]:4);
end;
writeln;

Нахождение максимального элемента массива
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('Максимальный элемент=',max);

Вывод на экран все нечетные элементы
k:=0;
for i:=1 to n do
if odd(a[i]) then
begin
write(a[i]:4);
k:=1;
end;
if k=0 then write('В массиве нет нечетных элементов');

const N=10;var i,max,k:integer;mas:array[1..N] of integer; beginrandomize; for i:=1 to N domas[i]:=random(31)-20;for i:=1 to N dowrite(mas[i],' ');writeln;max:=mas[1];for i:=2 to N doif max < mas[i] thenmax:=mas[i];writeln('Максимальный элемент массива: ',max); k:=0;for i:=1 to N doif mas[i] mod 2 <> 0 thenk:=k+1;if k=0 then writeln('В массиве нет нечетных элементов')elsewriteln('Количество нечетных элементов массива: ',k);end.