#include<iostream>
using namespace std;
int main()
{
int n;
int a;
int max = 0;
cin>>n;
for(int i=0;i<n;i++)
{
cin>>a;
if(a%5==0 && a>max) max = a;
}
cout<<max<<endl;
system("PAUSE");
}
Миллионы программистов по всему миру работают в Delphi, и многие из них создают программы для обработки и хранения данных в Delphi. Существует много информации, которую необходимо обрабатывать через визуальный интерфейс ежедневно, за исключением коммерческой и личной информации (имена людей, адреса, счета): аудиофайлы, видео, веб-страницы и многое другое. Чтобы получить необходимую информацию из такого большого количества информации, нам нужны программы, которые ее обрабатывают.\r Одна из лучших сред для создания программного обеспечения - Delphi. Это очень просто и легко выучить, понять и рассуждать логически. Delphi имеет хорошо развитую структуру программирования и программирования в целом по сравнению с другими языками. Обладает интересными рекурсивными функциями, а также решать интересные задачи.
Program Fanisca;
uses crt;
var
n,temp,i,max: integer;
begin
write('Введите число N=');
readln(n);
max:=0;
i:=1;
writeln('*** alphaues is thinking... ***');
while i<=n do
begin
write('Введите ',i,'-е число ');
readln(temp);
if (max<temp) and (temp mod 5 = 0) then max:=temp;
i:=i+1;
end;
writeln('Максимальное число, кратное 5, равно ',max);
end.