Массивчик, диагональ

@ValdisZ · Регистрация: 13.04.2010

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

Дан массив размером 6x6, который образуется случайным образом из чисел из интервала от 0 до 10. Создать новый массив состоящий из элементов главной диагонали нового массива. Отсортировать этот массив по возрастанию.

@SuPeR XaKer · 15.03.2011, 18:53

Ну показывайте как решали?

@ValdisZ · 15.03.2011, 19:00 **[ТС]**

А решение на флешке, а флешка у друга, я ему игры на psp скачивал)

@romcka-x · 15.03.2011, 19:38

Pascal

uses crt;
const n=6;
var
a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
p,i,j,k:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
  a[i,j]:=random(11);
end;  writeln('  Исходная матрица: ');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);writeln;
end;   writeln;
i:=1;j:=1;
while (i<=n) and (j<=n) do
begin
b[i]:=a[i,j];
i:=i+1;
j:=j+1;
end;  writeln('Полученный массив');
for i:=1 to n do
begin
write(b[i],' ');
end;
writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if b[j]>b[j+1] then
   begin
     p:=b[j];
        b[j]:=b[j+1];
      b[j+1]:=p
     end;  writeln('По возрастанию');
for i:=1 to n do
write(b[i],' ');
end.

@ValdisZ · 15.03.2011, 19:41 **[ТС]**

Спасибо ОГРОМНОЕ!)

@SuPeR XaKer · 15.03.2011, 20:17

А решение на флешке, а флешка у друга, я ему игры на psp скачивал)

Не по теме:

хорошая история.Ну прям санта барбара.

без лишнего кода:

Pascal

Uses
 CRT;
Const
 n=6;
Var
 a:array[1..n,1..n] of integer;
 b:array[1..n] of integer;
 i,j,buf:integer;
Begin
randomize;
for i:= 1 to n do
 begin
  for j:=  1 to n do
   begin
    a[i,j]:=random(10)-3;
    write(a[i,j]:3);
   end;
   b[i]:=a[i,i];
  writeln
 end;
writeln;
for i:=1 to n do
 write(b[i]:3);
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]>b[j] then
begin
 buf:=b[i];
 b[i]:=b[j];
 b[j]:=buf;
end;
writeln;
for i:=1 to n do
 write(b[i]:3);
Readln
End.

@ValdisZ 0 / 0 / 0 Регистрация: 13.04.2010 Сообщений: 17
		1
	Массивчик, диагональ 15.03.2011, 18:46. Показов 771. Ответов 5 Метки нет (Все метки) Дан массив размером 6x6, который образуется случайным образом из чисел из интервала от 0 до 10. Создать новый массив состоящий из элементов главной диагонали нового массива. Отсортировать этот массив по возрастанию. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	15.03.2011, 18:53	2
	Ну показывайте как решали? 1

@ValdisZ 0 / 0 / 0 Регистрация: 13.04.2010 Сообщений: 17
	15.03.2011, 19:00 [ТС]	3
	А решение на флешке, а флешка у друга, я ему игры на psp скачивал) 0

@ValdisZ 0 / 0 / 0 Регистрация: 13.04.2010 Сообщений: 17
	15.03.2011, 19:41 [ТС]	5
	Спасибо ОГРОМНОЕ!) 0

	15.03.2011, 20:17