Благой вечер (денек, ночь, утро)! Помогите, пожалуйста, с заданием под номером

Благой вечер (день, ночь, утро)! Помогите, пожалуйста, с заданием под номером 20.2. В нём нужно составить программку, которая определяет меньшее не кратное 5 число, не оканчивающееся на 7. Количество чисел не обязано превышать 1 000, числа не больше 30 000. Окончательный итог необходимо вывести. Желанно написать программку, работающую с любым количеством чисел, то есть, не подстраивать решение под введённые числа.
Заблаговременно спасибо!

Задать свой вопрос
Милана Топальская
на паскале?
1 ответ
Задачка изготовлена на языке паскаль, при подмоги PaskalPlusОформление сделана как для студенческой задачки
Если есть вопросы пиши в личку

Файл: progam_stud.pasЗадача:
Создатель:   Дата: 
  var  a : array [1..1002] of integer;i, im, k, min :integer; //im - индекс искомого числа, min- малое число, k- максимальное количиство чисел в последовательности не считая 0
begin
i:=0;
im:=1;
min:=30001;  //Ввод  repeat  inc(i); 
 writeln ('Введите ', i, ' число'); 
readln (a[i]);   
until(a[i]=0);//если вводится ноль то вот прекращается 
k:= i-1; //фиксируется всего веденных чисел   
for i:=1 to k do   
 begin       
 if ((a[i]lt;min) and (a[i] mod 5 lt;gt; 0) and (a[i] mod 10 lt;gt;7)) then         
  begin           
 im:=i;           
end   
 end;   
writeln(a[im]) ; //вывод    
end.
Валерий Обытоцкий
выбери как лучший ответ
Андрей Бриткин
Спасибо огромное!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт