Заменить все отрицательные элементы матрицы на их квадраты - Turbo Pascal (33766)

Формулировка задачи:

Составить программу обработки двухмерного массива,оформив ввод/вывод и обработки элементов массива в виде подпрограмм.Заменить все отрицательные элементы массива K(n,m) на их квадраты,положительные на корень из данного числа Добавлено через 19 часов 38 минут ???????????????????? Добавлено через 7 часов 43 минуты помогите плиз!!!!!!!

Код к задаче: «Заменить все отрицательные элементы матрицы на их квадраты - Turbo Pascal (33766)»

textual
program ps2;
Var
i,j:integer;
A:array[1..3,1..3] of integer;
Begin
For i:=1 to 3 do
 Begin
  For j:=1 to 3 do
   Begin
   A[i,j]:=random(10)+10;
   write(A[i,j]:3);
   End;
   writeln;
 End;
   writeln;
 For i:=1 to 3 do
    Begin
     For j:=1 to 3 do
       Begin 
        If A[i,j] > 0 then
         A[i,j]:=exp(ln(A[i,j]) div 2) (Вот тут ругается, не могу понять почему?)
         Else A[i,j]:=(A[i,j]*A[i,j]);
       End;
    End; 
    For i:=1 to 3 do
  For j:=1 to 3 do
   write(A[i,j]:3);
 End.

5   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы