Информатика

Нинура

21 августа, 13:17

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