В заданном массиве из N элементов найти наименьший среди элементов кратных трем - Pascal ABC

Формулировка задачи:

В заданном массиве из N элементов найти наименьший среди элементов кратных трем, расположенных до первого отрицательного.


textual

Код к задаче: «В заданном массиве из N элементов найти наименьший среди элементов кратных трем - Pascal ABC»

{В заданном массиве из N элементов найти наименьший среди элементов кратных трем, 
расположенных до первого отрицательного. }
const
  n = 50;
 
var
  a: array [1..n] of integer;
  k3, min, fn, i: integer;
 
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := random(-100, 100);
    write(a[i]:4);
  end;
  fn := 0;
  for i := 1 to n do
    if a[i] < 0 then
    begin
      fn := i;
      break;
    end;
  writeln;    
  k3 := 0;
  for i := 1 to fn - 1 do  
    if (a[i] mod 3 = 0) then
    begin
      k3 := i;
      break;
    end;
  if k3 = 0 then
  begin
    writeln('Нет чисел, кратных 3.');
    exit;
  end
  else
    min := a[k3];
  for i := k3 to fn - 1 do
    if  (a[i] < min) and (a[i] mod 3 = 0) then
      min := a[i];
  writeln('Минимум: ', min);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.000 из 5

Источник