Вопрос по информатике:
Написать программу, которая выведет из N чисел числа кратные 3 и максимальное из них, если нет чисел кратных 3, вывести NO
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.09.2015 04:18
- Информатика
- remove_red_eye 11465
- thumb_up 35
Ответы и объяснения 2
n,tmp, i, max:integer;
fl:boolean;
begin
Read(n);
fl:=false;
max:= -1000*1000*1000-13;
for i:= 1 to n do
begin
Read(tmp);
if (tmp mod 3 = 0) then
begin
fl:= true;
if (max
writeln(tmp, ' ');
end;
end;
if (fl) then Writeln('Максимальное: ', max)
else Writeln('NO');
end.
- 18.09.2015 04:51
- thumb_up 34
//Версия 3.3, сборка 1611
begin
write('Введите n: ');
var a:=ArrRandom(ReadInteger(),1,100);
write('сгенерированный массив: ');
a.Println();
var b:=a.Where(x->x mod 3=0);
if(b.Count()0) then
begin
write('числа кратные 3: ' );
b.Println();
write('максимальное из кратных 3: ',b.Max());
end else write('no');
end.
- 19.09.2015 02:27
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.