Схема к этой программе program n_1; var a: array[1..50] of integer; i,k: integer; begin for i: = 1 to 50 do a[i]: = random(51)+150; k: =0; for i: = 1 to 50 do if a[i]> 170 then k: =k+1; writeln(k); end.

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку