Входные и выходные данные напишите, возможно я не понял задачу. Данная программа считывает n, затем считывает множество чисел x1,x2,x3,...,xN и вы видите самое большое число делящееся на 3 var x,i,n,ma:integer;beginread(n);for i:=1 to n do begin read(x); if (x>ma) and ((x mod 3)=0) then ma:=x; end;writeln(ma);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
