Question

Программа для паскаль. Найти минимальный элемент массива делящийся на 3.

Answer 1

Вроде правильно
const n= ;(поставь любое положительное число, это количество элементов в массиве)
var A:array [1..n] of real; i: integer; min: real;
begin
for i:=1 to n do
begin
readln (a[i]);
writeln ('a[i', i, ']=', a[i]);
end;
min:=a[i];
for i:=1 to n do
if a[i] mod 3=0 then if a[i]<min then min:=a[i];
if (a[1]=min) and (a[1] mod 3<>0) then writeln ('Нет чисел, делящихся на 3') else writeln (min);
end.

Answer 2

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

program MinElementDivisibleBy3;

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

var
  arr: array[1..N] of Integer; // Объявление массива
  i, minElement: Integer;
  found: Boolean;

begin
  // Инициализация массива случайными значениями
  Randomize;
  for i := 1 to N do
    arr[i] := Random(100); // Генерация случайных чисел от 0 до 99

// Вывод исходного массива
  Write('Исходный массив: ');
  for i := 1 to N do
    Write(arr[i], ' ');
  Writeln;

// Поиск минимального элемента, делящегося на 3
  minElement := MaxInt; // Установим начальное значение как максимальное возможное целое число
  found := False;

for i := 1 to N do
  begin
    if (arr[i] mod 3 = 0) and (arr[i] < minElement) then
    begin
      minElement := arr[i];
      found := True;
    end;
  end;

// Вывод результата
  if found then
    Writeln('Минимальный элемент, делящийся на 3: ', minElement)
  else
    Writeln('В массиве нет элементов, делящихся на 3.');

end.

Эта программа создает массив из 10 случайных целых чисел от 0 до 99 и затем находит минимальный элемент в массиве, который делится на 3 без остатка. Если такой элемент найден, программа выводит его значение. Если нет элементов, удовлетворяющих условию (нет чисел, делящихся на 3), программа сообщает об этом.