Question

Схема к этой программе 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.

Answer 1

Блок-схема во вложении. И постарайся писать код с переносом строки.