program massiv; var a:array[1..15] of integer; i:integer; begin randomize; for i:=1 to 15 do begin a[i]:=random(50)-25; if a[i]<0 then a[i]:=0; writeln('a[',i,']=',a[i]); end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
