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

[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 - 5.12.2004 0:23

[Jahnerus]

volvo

Это ясно, но ЗАЧЕМ?

Наверно человек писавший это переживал что это a:=random(101)-50 за 36 проходов (А(6,6)) может по непонятным причинам не сгенерировать отрицательного числа и решил сделать наверняка!... толи по его мнению так проверять легче :D .
Вощем от бетта версии 0.01 защиты от дурака я ваще в шоке
может попробовать так :

Код

Readln(s);
val(s,a[i,j],er);
if er<>0 then writeln('Error');