Ефрем 27 ноября 2019 в 12:02
Составьте программу генерирующую одномерный массив из элементов двумерного массива А(N,N),расположенных над главной диагональю
Составьте программу генерирующую одномерный массив из элементов двумерного массива А(N,N),расположенных над главной диагональю
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
const m = 100;
var
i,j,n: byte;
arr1: array [1..m,1..m] of integer;
arr2: array [1..m] of integer;
begin
write(Ко-во эл-ов квадратной матрицы: );
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
arr1[i,j]:=random(50);
write(arr1[i,j], );
end;
writeln;
end;
writeln(Полученный массив:);
for i:=1 to n do
for j:=1 to n do
if (j lt; n-i+1) then
begin
arr2[i]:=arr1[i,j];
write(arr2[i], );
end;
writeln;
end.
Компьютеры и вычисления
102
0
Для комментирования необходимо зарегистрироваться на сайте