Var a:array[1..100,1..100]of integer;i,j,n,m:integer;begin readln(n,m); randomize; for i:=1 to n do for j:=1 to m do begin A[i,j]:=random(100); Write(a[i,j],' '); A[i,j]:=sqr(A[i,j]); Write(a[i,j],' '); end; Readln;end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
