Вопрос Паскаль... Помогите написать программу

[Dimasiks1]

напишите программу которая в последовательности натуральных чисел определяет минимальное положительное число кратное 5.

Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется положительное число, делящееся нацело на 5

Количество чисел не превышает 1000. Введённые числа по обсолютной величине не превышают 30 000.

Программа должна вывести одно число – минимальное положительное число, кратное 5

 

[лохлох91195]

program q200409449; var  a, n, m: Integer; begin  ReadLn;  m := -1;  while n <> 0 do  begin   ReadLn(a);   if ((a > 0) and (a mod 5 = 0)) and ((m = -1) or (a < m)) then    m := a;   Dec;  end;  WriteLn(m);  ReadLn; end.

 

[француз89]

Закинь в массив и перебери, какие числа делятся на 10. Введи переменную, которой для начала присвой нулевое значение массива. Затем в процессе перебора присваивай ей новое значение если оно меньше того, что есть. После цикла выведи эту переменную.

 

[Whispering]

напишите программу которая в последовательности натуральных чисел определяет минимальное положительное число кратное 5.

Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется положительное число, делящееся нацело на 5

Количество чисел не превышает 1000. Введённые числа по обсолютной величине не превышают 30 000.

Программа должна вывести одно число – минимальное положительное число, кратное 5

  var
  a: array [1..1000] of integer;
  i,n,sum,min: integer;
  label loop;
begin

  loop:
  writeln('Введите количество элементов');
  readln(n);
  if n>1000 then 
  begin
  writeln('Количество элементов должно быть от 2 до 1000');
  goto loop;
  end 
  else
  writeln('Введите элементы массива ');
  for i := 2 to n do
  begin
    Write('a[', i, '] -> ');
    readln(a[i]);
  end;
  a[1]:=25;
  writeln('Массив: ');
  for i := 1 to n do
  begin
    writeln(a[i], ' ');
    end;
     sum := 0;
    for i := 1 to n do
    begin
        sum := sum + a[i];
    end;
    if sum>30000 then 
    begin 
    writeln('Сумма элементов превышает 30000');
    goto loop;
    end ;
    min:=a[1];
    for i:=1 to n do
    begin
    if (min>a[i]) and (a[i] mod 5=0) then
    begin
    min:=a[i];
    end;
    end;
    writeln('Минимальный элемент массива кратный 5: ',min);
    goto loop;
end.