Сформировать одномерный массив из отрицательных элементов матрицы

@Lion_14 · Регистрация: 19.01.2014

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

Дана матрица A(n×n). Сформировать одномерный массив из отрицательных элементов этой матрицы, расположенных ниже главной диагонали.

Добавлено через 18 минут
СРОЧНО ПОМОГИТЕ!!!

Добавлено через 1 минуту
ЧТО НЕПРАВИЛЬНО?

Pascal

program n1;
uses crt;
const n=4;
var B:array[1..n*n] of integer;
    A:array[1..n,1..n] of integer;
k,i,j:integer;
begin
clrscr;
for i:=1 to n do begin
  for j:=1 to n do begin
  a[i,j]:=random(20)-5;
  write(A[i,j]:5)
  end;
  writeln;
end;
writeln;
writeln;
 
k:=0;
for i:=1 to n-1 do
 for j:=1 to i do
   if a[i,j]<0
   then begin
   k:=k+1;
   b[k]:=a[i,j];
for i:=1 to k do
   write(b[i]:5);
end;
end.

@ruTwit · 06.04.2014, 21:10

Pascal

program n1;
uses crt;
const n=4;
var B:array[1..n*n] of integer;
A:array[1..n,1..n] of integer;
k,i,j:integer;
begin
clrscr;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(20)-5;
write(A[i,j]:5)
end;
writeln;
end;
writeln;
writeln;
 
k:=0;
for i:=1 to n do
for j:=1 to n do
if ((a[i,j]<0)and(i>j))
then begin
k:=k+1;
b[k]:=a[i,j];
end;
for i:=1 to k do
write(b[i]:5);
end.

@Cyborg Drone · 07.04.2014, 13:16

Комментарий модератора

Lion_14, правило форума:

3. 4. Избегайте использования слишком большого количества смайлов в сообщениях в тематических разделах форума, а также "кричащего" выделения текста, в том числе CAPS LOCK.

Когда ВОТ ТАК написано, задача быстрее не решается. Лично у меня без нужды большие и/или раскрашенные буквы вызывают только раздражение. Не пишите так, а то я Вам caps lock вырву.