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