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.

Answer 2

Конечно, я помогу вам объединить эти коды и доработать программу. Ниже приведен полный код программы на Pascal, который выполняет задачу по нахождению максимального элемента массива и выводу всех нечетных элементов:

pascalCopy code
program FindMaxAndOddElements;

const
  ARRAY_SIZE = 10; // Измените значение этой константы, чтобы изменить размер массива

var
  a: array[1..ARRAY_SIZE] of Integer;
  i, max, k: Integer;

begin
  // Задаем массив генератором случайных чисел в диапазоне [-20; 10]
  for i := 1 to ARRAY_SIZE do
  begin
    a[i] := -20 + random(31);
    write(a[i]:4);
  end;
  
  writeln;
  
  // Находим максимальный элемент массива
  max := a[1];
  for i := 2 to ARRAY_SIZE do
    if a[i] > max then
      max := a[i];
      
  writeln('Максимальный элемент = ', max);
  
  // Выводим на экран все нечетные элементы
  k := 0;
  for i := 1 to ARRAY_SIZE do
  begin
    if odd(a[i]) then
    begin
      write(a[i]:4);
      k := 1;
    end;
  end;
  
  if k = 0 then
    write('В массиве нет нечетных элементов');
end.

Программа объединяет все три части в один код. Вы можете изменить значение константы ARRAY_SIZE, чтобы задать другой размер массива. Запустите этот код в вашей среде разработки Pascal, и программа выполнит задачу, как описано в вашем описании.