Какие из приведенных ниже отрывков программ хорошо структурированы?1) while not eof(f) do begin inc(n); read(f,a[n]); inc(obsh_ves,a[n]); end;close(f);min:= MaxLongInt;2) while head<>nil do beginwith head^.e^ doif from^.dist+len < toward^.dist then begintoward^.dist:= from^.dist + len;enqueue(toward,queue,head);end;next_head:= head ^.next;dispose(head);head:= next_headend;3) while left<=right do begin sred:= (left+right)div 2; if a[sred]<x then left:= sred+1 else begin right:= sred-1; inc(k); end; end; for j:= i-1 downto left do a[j+1]:= a[j];4) while p<>nil do begin j:=p^.v; a[j]:=k; if (head[j]<>nil) and (i<>j) then begin q:=p; while q^.next<>nil do q:=q^.next; q^.next:=head[j]; head[j]:=nil; end; p:=p^.next; end;
(Ответ считается верным, если отмечены все правильные варианты ответов.)
Варианты ответа
2
1(Верный ответ)
4
3(Верный ответ)