Дана матрица А(6,6) определить отрицательные элементы в строках матрицы А

[SSarox]

Создать таблицу из 6 строк ТАВ, где в каждой строке будут располагаться найденные отрицательные элементы из строк матрицы А, возведенные в квадрат.

Вывести А и под ней ТАВ.

[Vanta11a]

Ну и что? Наработки где?

[SSarox]

Напишите программу пожалуйста, я вообще не представляю как это сделать.

[Vanta11a]

Пффф. 100 рублей при условии уточнения условий задачи.

Также можете во фриланс обратиться.

[SSarox]

А сколько это программа будет стоить вместе с 3мя Фасетами и Блок Схемой?

[Stilet]

Ватащива тебе бесплатно предложу такой вариант:

type
  TTab=array[1..6,1..6] of integer;
var
  a,tab:TTab; i,j:integer;
begin
  randomize;
  for i:=1 to 6 do begin
    for j:=1 to 6 do begin
      a[i,j]:=5-random(10);write(a[i,j]:6);
      if a[i,j]<0 then tab[i,j]:=sqr(a[i,j]);
    end; writeln;
  end; writeln;

  for i:=1 to 6 do begin
    for j:=1 to 6 do begin
      if tab[i,j]<>0 then write(tab[i,j]:6) else write(' ':6)
    end; writeln;
  end;
 readln;
end.

Но без фасеток (каких-то) и блоксхем.

[SSarox]

Огромное спасибо за прогу, а под Фасетами я имел введу Процедуры

[SSarox]

Создать таблицу из 6 строк ТАВ, где в каждой строке будут располагаться найденные отрицательные(1) элементы из строк матрицы А, возведенные в квадрат(2).Вывести А и под ней ТАВ.

(1) Проц.(положительные)
(2) Проц.(куб)
(3) Проц.(вывести дополнительный массив из отрицательных(положительных) чисел состоящие в матрице А.)

Прошу мне помочь с готовым решением.

Вот программа

program qq;
uses crt;
var
a:array[1..6,1..6] of integer;
Tab:array[1..6,1..6] of integer;
i,j:integer;
begin
randomize;
for i:=1 to 6 do begin
for j:=1 to 6 do begin
a[i,j]:=5-random(10);
write(a[i,j]:6);
if a[i,j]<0 then tab[i,j]:=sqr(a[i,j]);
end;
writeln;
end;
writeln;
for i:=1 to 6 do begin
for j:=1 to 6 do begin
if tab[i,j]<>0 then write(tab[i,j]:6) else write('0':6)
end;
writeln;
end;
end.