Вопрос по информатике:
Задача в pascal:
Даны n чисел из отрезка (-20;20). Найти максимальное четное и максимальное нечетное числа
- 26.03.2018 23:14
- Информатика
- remove_red_eye 2856
- thumb_up 44
Ответы и объяснения 1
Var
n, i, mn, mx, a:integer;
begin
writeln('Vvedite n:');
readln(n);
writeln('Vvedite chisla iz otrezka (-20;20):');
mn:=0;
mx:=0;
for i:=1 to n do
begin
readln(a);
if (a mod 2)=0 then
if mx if (a mod 2)0 then
if mn end;
writeln('Maximalnoe chetnoe =',mx);
writeln('Maximalnoe nechetnoe =',mn);
readln();
end.
- 27.03.2018 22:57
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.