Question

Дан двумерный массив A[n,m]. Определить произведение квадратов всех элементов массива. Напишите полностью пожалуйста.

Answer 1

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.