Program naconecto;const n=5;varA:array[1..n] of integer;i,sum:integer;BEGINsum:=0;randomize;for i:=1 to n do begin a[i]:=random(-5,5); if a[i]<>0 then begin sum:=sum+1; end else begin break; end; end;writeln('cyMMa=',sum);END.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
