Var m : array[1..5,1..5] of Integer; i,j : Byte; Begin Randomize; For i:=1 to 5 do Begin For j:=1 to 5 do Begin m[i,j]:=Random(91)+10; Write(m[i,j]:4); end; Writeln; end; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку