Друг попросил найти ему как сделать прогу в 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('В массиве нет нечетных элементов');
Друг попросил найти ему как сделать прогу в 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('В массиве нет нечетных элементов');
Сам я учусь не по этой специальности и вообще не шарю, так что тапками не кидайтесь)
Ввод размера массива 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('В массиве нет нечетных элементов');
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program FindMaxAndOddElements;
var
a: array of integer;
n, i, max, k: integer;
begin
write('Введите размер массива: ');
readln(n);
SetLength(a, n);
Randomize;
for i := 0 to n-1 do
begin
a[i] := -20 + Random(31);
write(a[i]:4);
end;
writeln;
max := a[0];
for i := 1 to n-1 do
if a[i] > max then
max := a[i];
writeln('Максимальный элемент = ', max);
k := 0;
for i := 0 to n-1 do
if odd(a[i]) then
begin
write(a[i]:4);
k := 1;
end;
if k = 0 then
write('В массиве нет нечетных элементов');
end.