Матрица Опции

[ghost]

:help: Помогите пожалуйста сделать задачу :help:
Дана матрица А(6,6). Создать новую матрицу В(6,6), где
а) В(I,J)=A(I,J), если A(I,J)>0
б) B(I,J) не равно 0, если A(I,J)<=0
Вывести исходную матрицу А, а под ней полученную матрицу В.
В программе должна быть "защита от дурака"

Сообщение отредактировано: ghost - 4.12.2004 20:23

[АнтонП]

Простите, что вмешался...

возможно в натуре условие не точно

Код

Var a,b:array[1..6]of integer;
I,j:intger;
begin
randomize;

for i:= 1 to 6 do
for j:= 1 to 6 do
a[I,j]:= random(99)-(random(99));

И отрицательные -  random(99)-(random(99))


for i:= 1 to 6 do
for j:= 1 to 6 do
if a[i,j]>0 then b[i,j]:=a[i,j]
else b[i,j]:= Любое ненулевое число (random(99)); или 0

А если и отрицательные, то random(99)-(random(99))

Вывод в таблицу:

For i:= 1 to 6 do
Begin
    For j:= 1 to 6 do
    Write(a[I,J]);
  WRITELN;
End;


For i:= 1 to 6 do
Begin
    For j:= 1 to 6 do
    Write(b[I,J]);
  WRITELN;
End;

End.