Задача по двумерному массиву. Создать новый одномерный массив из элементов, стоящих под главной диагональю. Вот шапочка массива: uses crt; type mas = array [1.. 8, 1.. 8] of integer; var M:mas; i,j:integer; begin randomize; for...
Задача по двумерному массиву.
Создать новый одномерный массив из элементов, стоящих под главной диагональю.
Вот шапочка массива:
uses crt;
type mas = array [1.. 8, 1.. 8] of integer;
var M:mas;
i,j:integer;
begin
randomize;
for i:=1 to 8 do begin
for j:=1 to 8 do begin
M[i,j]:=random(190)-95;
write(M[i,j]:4);
end;
writeln;
end;
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
type mas = array [1.. 8, 1.. 8] of integer;
var M:mas;i,j,k:integer;
a:array[1..28]of integer;
begin
randomize;
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
M[i,j]:=random(190)-95;
write(M[i,j]:4);
end;
writeln;
end;
for i:=1 to 8 do
for j:=1 to 8 do
if i>j then
begin
k:=k+1;
a[k]:=m[i,j];
end;
writeln;
for i:=1 to 28 do
write(a[i]:4);
end.
Не нашли ответ?
Похожие вопросы