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

Узнай цену своей работы

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

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

Решение задачи: «Заменить все отрицательные элементы матрицы на их квадраты»

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.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он содержит двумерный массив целых чисел A размером 3x3, который заполняется случайными числами от 1 до 10. Затем происходит замена всех положительных элементов матрицы на их квадраты. Если элемент матрицы положительный, то он заменяется на результат возведения этого элемента в степень, равную половине логарифма по основанию 10 от этого элемента. Если элемент отрицательный, то его заменяют на квадрат этого числа. После замены всех элементов матрицы, значения каждого элемента выводятся на экран.

Оцени полезность:

5   голосов , оценка 3.6 из 5
Похожие ответы