Question

Дан массив из 10 целых чисел в диапазоне [-10000,10000]. Определите максимальный элемент, кратный 5. Если таких элементов нет, выведите "-1". Числа вводятся с клавиатуры. Программу выполнить в ПАСКАЛЬ.АВС

Answer 1

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqInteger(10).Where(t->(t mod 5=0)).ToArray;
  if a.Count=0 then Writeln(-1) else Writeln(a.Max)
end.

Answer 2

Program c;var a:array [1..10] of integer; i,k,n:integer;begin k:=-1; n:=-10001; for i:=1 to 10 do  begin   readln(a[i]);    if(a[i] mod 5 = 0) and (a[i] > n) then     n:= a[i];   end;   if n = -10001 then    writeln(k)    else     writeln(n);end.

Answer 3

Для решения этой задачи на языке Паскаль можно использовать следующий код:

pascalCopy code
program MaxMultipleOfFive;

const
  n = 10; // Размер массива

var
  arr: array[1..n] of integer;
  i, maxMultipleOfFive: integer;

begin
  // Ввод элементов массива с клавиатуры
  writeln('Введите ', n, ' целых чисел в диапазоне [-10000,10000]:');
  for i := 1 to n do
  begin
    readln(arr[i]);
  end;

  // Ищем максимальный элемент, кратный 5
  maxMultipleOfFive := -1;
  for i := 1 to n do
  begin
    if (arr[i] mod 5 = 0) and (arr[i] > maxMultipleOfFive) then
    begin
      maxMultipleOfFive := arr[i];
    end;
  end;

  // Вывод результата
  if maxMultipleOfFive = -1 then
    writeln('Массив не содержит элементов, кратных 5.')
  else
    writeln('Максимальный элемент, кратный 5: ', maxMultipleOfFive);
end.

Программа объявляет массив arr из 10 целых чисел и затем запрашивает пользователя ввести 10 чисел с клавиатуры. После этого программа ищет максимальный элемент, кратный 5, и выводит его значение. Если таких элементов нет, программа выведет "-1".