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

NikitaVaselenk    2   22.09.2019 09:20    0