Question

PASCAL Дан целочисленный массив из 20 элементов, из промежутка [-100; 50]. Напишите программу позволяющую найти и вывести минимальное значение среди положительных элементов массива, кратных 5 Если в исходном массиве нет элемента, значение которого положительно и делится на 5, то вывести сообщение «Не найдено».

Answer 1

var  

i, answer: integer;

arr: array[-100..50] of integer;

begin

answer := -1;

for i:= 0 to 19 do

begin

 read(arr[i]);

 if ((arr[i] > 0) and (arr[i] mod 5 = 0) and (arr[i] > answer)) then answer := arr[i];

end;

   if answer = -1 then writeln('Не найдено')

   else writeln(answer);

end.

Answer 2

Вот пример программы на языке Pascal, который реализует указанные вами требования:

pascalCopy code
program MinPositiveMultipleOf5;
var
  arr: array [1..20] of integer;
  i, minPositiveMultipleOf5: integer;
  found: boolean;
begin
  // Заполнение массива случайными значениями из интервала [-100, 50]
  Randomize;
  for i := 1 to 20 do
    arr[i] := Random(151) - 100;

  // Инициализация переменных
  minPositiveMultipleOf5 := 51;  // Максимальное значение + 1
  found := false;

  // Поиск минимального положительного элемента, кратного 5
  for i := 1 to 20 do
  begin
    if (arr[i] > 0) and (arr[i] mod 5 = 0) and (arr[i] < minPositiveMultipleOf5) then
    begin
      minPositiveMultipleOf5 := arr[i];
      found := true;
    end;
  end;

  // Вывод результата
  if found then
    writeln('Минимальное положительное значение, кратное 5: ', minPositiveMultipleOf5)
  else
    writeln('Не найдено');
end.

Программа создает массив из 20 элементов с случайными значениями в указанном диапазоне [-100, 50]. Затем она ищет минимальное положительное значение, кратное 5, в массиве и выводит его. Если такого значения нет, программа выводит сообщение "Не найдено".