program Project2 APPTYPE CONSOLE uses SysUtils var array 10 10 of inte

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a:array[1..10,1..10]of integer;
b:array[1..10,1..10]of real;
i,j,min:integer;
begin
randomize;
min:=100;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(10)+2;
write(a[i,j],' ');
if abs(a[i,j])<min then min:=abs(a[i,j]);
end;writeln;
end;writeln;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
b[i,j]:=a[i,j]/min;
write(b[i,j]:1:2,' ');
end;writeln;
end;
readln;
end.