Question

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

Answer 1

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