Question

Помогите пожалуйста! Напишите эту программу ,но только с while.
Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число минимальное число, оканчивающееся на 6.

Answer 1

var n,k,m,mn: integer;
begin
  write('n = ');  readln(n);
  mn:=30000;
  k:=0;
  while k<n do
  begin
    read(m);
    if (abs(m mod 10) = 6) and (m<mn) then mn:=m;
    k:=k+1;
  end;
  writeln(mn);
end.

n = 5
21 -26 18 -16 35
-26

Answer 2

можете ещё с одной прграммой помочь?

Answer 3

очень надо!

Answer 4

Вопрос задайте.

Answer 5

Помогите пожалуйста написать эту программу с while!
Напишите программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет ко­ли­че­ство чисел, крат­ных 3. Про­грам­ма по­лу­ча­ет на вход ко­ли­че­ство чисел в последовательности, а затем сами числа. В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 3. Ко­ли­че­ство чисел не пре­вы­ша­ет 100. Введённые числа не пре­вы­ша­ют 300. Про­грам­ма долж­на вы­ве­сти одно число — ко­ли­че­ство чисел, крат­ных 3.

Answer 6

я уже задала этот вопрос на сайте