Question

Паскаль! RestIess help ))) Заполнить массив целыми случайными числами, найти значение и номер максимального некратного 4. Если таких нет - вывести сообщение.

Answer 1

program fives;

CONST N = 10;

var

a: array [1..N] of integer;

i,imax4,imax4z : integer;

begin

Randomize;

imax4 := 1;

imax4z := a[1];

   for i := 1 to N do  

   begin

   a[i] := random(100) + 1;

   writeln(a[i]);

   end;

 for i := 1 to N do

 begin

   if (a[i] mod 4 <> 0) and (a[i]>imax4z) then

   begin

   imax4z := a[i];

   imax4:= i;

   end;

 end;

 writeln('Max:',imax4z);

 writeln('Index: ',imax4);

end.

Answer 2

Конечно, вот пример программы на Паскале, которая выполняет описанные вами действия:

pascalCopy code
program FindMaxNonMultipleOf4;
const
  MAX_SIZE = 100;
var
  arr: array[1..MAX_SIZE] of integer;
  n, i, maxNonMultipleOf4, maxNonMultipleIndex: integer;
begin
  randomize;

  { Введите размер массива }
  write('Введите размер массива (не более ', MAX_SIZE, '): ');
  readln(n);

  { Заполнение массива случайными числами }
  for i := 1 to n do
    arr[i] := random(100); { случайное число от 0 до 99 }

  maxNonMultipleOf4 := -1; { Инициализируем переменные }
  maxNonMultipleIndex := -1;

  { Поиск максимального некратного 4 }
  for i := 1 to n do
  begin
    if (arr[i] mod 4 <> 0) and (arr[i] > maxNonMultipleOf4) then
    begin
      maxNonMultipleOf4 := arr[i];
      maxNonMultipleIndex := i;
    end;
  end;

  { Вывод результата }
  if maxNonMultipleIndex <> -1 then
    writeln('Максимальное некратное 4: ', maxNonMultipleOf4, ', его индекс: ', maxNonMultipleIndex)
  else
    writeln('В массиве нет чисел, не кратных 4.');

  readln; { Чтобы консольное окно не закрылось сразу }
end.

Программа сначала запрашивает у пользователя размер массива (n). Затем она заполняет массив случайными числами от 0 до 99. После этого она ищет максимальное число, не кратное 4, и выводит его значение и индекс. Если такого числа нет, программа выведет соответствующее сообщение.