Program Pr1; uses crt; var mas:array[1..100] of integer; i,a:integer; Begin clrscr; a:=0; for i:=1 to 100 do begin read(mas[i]); if (mas[i]>100) and (mas[i] mod 3=0) then a:=a+1; end; writeln(a); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
