Напишите программку , которая в последовательности 10-ти естественных чисел определяет

Напишите программу , которая в последовательности 10-ти естественных чисел определяет максимально число, оканчивающееся на 4. Если таких чисел нет , вывести (NO). (Язык программирования -Паскаль)

Задать свой вопрос
1 ответ
Program primer;var   n,i,max,z:integer;begin   max:=0;   for i:=1 to 10 do begin      read(n);      if(n mod 10 = 4) then begin         inc(z);         if(maxlt;n) then max:=n;      end;   end;   if(zgt;0) then writeln(max)      else writeln('NO');end.
Elizaveta Gvichiani
Я не знаю, что произошло с выводом на веб-сайте. У меня всё нормально смотрится в программке
Виктор Баркаган
Спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт