Дан двухмерный массив размером n*n. Сформировать одномерный массив из элементов заданного массива, расположенных над главной диагональю

@Zorroo · Регистрация: 19.12.2012

Студворк — интернет-сервис помощи студентам

@Puporev · 23.03.2013, 19:57

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    b:array[1..(nmax*nmax-nmax)div 2]of integer;
    n,m,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
m:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  m:=m+1;
  b[m]:=a[i,j];
 end;
writeln('Массив элементов над главной диагональю');
for i:=1 to m do
write(b[i],' ');
readln
end.

@Zorroo · 24.03.2013, 19:33 **[ТС]**

чем можно заменить until in?

@Puporev · 24.03.2013, 19:38

Pascal

repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until (n>0)and(n<=nmax);

Или вообще убери repeat..until, тогда если введешь n=-1000,сам будешь отвечать

@retura · 26.12.2013, 08:09

а если мне нужно под главной диагональю?чего поменять?

@Puporev · 26.12.2013, 08:13

Pascal

m:=0;
for i:=2 to n do
for j:=1 to i-1 do
 begin
  m:=m+1;
  b[m]:=a[i,j];
 end;

@retura · 26.12.2013, 08:18

спасибочки=)))))

@Zorroo 0 / 0 / 1 Регистрация: 19.12.2012 Сообщений: 178
		1
	Дан двухмерный массив размером nn. Сформировать одномерный массив из элементов заданного массива, расположенных над главной диагональю 23.03.2013, 17:24. Показов* 4784. Ответов 6 Метки нет (Все метки) Дан двухмерный массив размером n*n. Сформировать одномерный массив из элементов заданного массива, расположенных над главной диагональю 0

@Zorroo 0 / 0 / 1 Регистрация: 19.12.2012 Сообщений: 178
	24.03.2013, 19:33 [ТС]	3
	чем можно заменить until in? 0

@retura 0 / 0 / 0 Регистрация: 25.12.2013 Сообщений: 4
	26.12.2013, 08:09	5
	а если мне нужно под главной диагональю?чего поменять? 0

@retura 0 / 0 / 0 Регистрация: 25.12.2013 Сообщений: 4
	26.12.2013, 08:18	7
	спасибочки=))))) 0

Опции темы