program blackjack Type matrix array 100 100 of integer var integer arr

 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
program blackjack;
Type matrix=array [1..100, 1..100] of integer;
var i, j, n: integer;
arr: matrix;
procedure setMatrix(n: integer; var arr: matrix);
var i, j: integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
if i > j then arr[i, j]:=0;
end;
writeln('Матрица с нулями под диагональю: ');
for i:=1 to n do
begin
for j:=1 to n do
write(arr[i, j], ' ');
writeln;
end;
end;
begin
writeln('Количество строк вашей матрицы: ');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
writeln('Заполните элемент матрицы под номером (', i, ', ' , j , ')');
readln(arr[i,j]);
end;
writeln('Исходная матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
write(arr[i, j], ' ');
writeln;
end;
setMatrix(n, arr);
end.