Друг попросил найти ему как сделать прогу в Pascal, сам он

Друг попросил отыскать ему как сделать прогу в 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]gt;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('В массиве нет нечетных частей');

Анастасия Парилова 2019-04-24 04:55:41

vara: array [1..10] of integer;i, max, k: integer;beginfor i:=1 to 10 dobegina[i]:=-20+random(31);write(a[i]:4);end;writeln;max:=a[1];for i:=2 to 10 doif a[i]>max then max:=a[i];writeln('Наибольший элемент=',max);k:=0;for i:=1 to 10 doif odd(a[i]) thenbeginwrite(a[i]:4);k:=1;end;if k=0 then write('В массиве нет нечетных частей');end.

Никитка Музеев 2019-04-24 04:58:23

Спасибо)