Вопрос №54228
 
 
 
 
Категории

 

Помогите написать программу в PASCAL?

23Witch27 · почти 4 года назад · 1 ответ
 

Дано N - натуральных чисел. Найти максимальное только четных из этих чисел.

Хороший вопрос Ф топку
0
2
Видео по теме
 
Ответы
Gorec116 · почти 4 года назад

var
a,i,max,k: integer;
begin
write('Введите 1-е число: ');
readln(a); i:=1; max:=a;
while a>0 do
begin
inc(i);
write('Введите ',i,'-е число: ');
readln(a);
if a>max then
begin
max:=a;
k:=i;
end;
end;
writeln('Максимальное число: ',max,', его индекс: ',k);
readln;
end.

 
 
 
 
 
Ссылка на этот вопрос
 
Поискать ответ на вопрос: ответы@mail.ru, otvety@google.ru, Яндекс.Ответы
 
Читать новые вопросы в: LiveJournal, Livinternet, Google Reader
 
Этот вопрос посмотрели 130 раз, в среднем 2 просмотра в месяц (0.09)
 
 
 
 
 
 
Адрес друга:
 
 
 
 
 
 
 
 
 
 
 

© vorum.ru — вопросы и ответы, 2006–2016
Пишите нам на in@vorum.ru

Администрация сервера не гарантирует точность и достоверность размещаемых пользователями материалов, а также не несет ответственности ни за какие задержки, сбои, удаление или несохранность какой-либо пользовательской информации.

Цифры не для всех: 116

 
 
× Нравится наш сайт?
Нажмите кнопку «Мне нравится» (Like), чтобы присоединиться к нам на Facebook