Заполните двумерный массив, замените отрицательные элементы нулями - Pascal ABC

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

Две задачи: 5. Заполните двумерный массив, замените отрицательные элементы нулями. 7. Используя процедуру вычисления степени числа, вычислить значение выражения: y=a1*x4+a2*x3+a3*x2+a4*x+a5 (вероятно числа это степени, но я всё же написал я именно так как написано в распечатке с заданиями).

Код к задаче: «Заполните двумерный массив, замените отрицательные элементы нулями - Pascal ABC»

textual
uses
 crt;
 
 var
 A : array [1..5,1..5] of Integer;
 i,j,n : integer;
  begin
  
 For i := 1 to 5 do
  for j := 1 to 5 do
   begin
  Randomize;
  n := Random(2);   // èñïîëüçóåì äîïîëГ*èòåëüГ*ГіГѕ ïåðåìåГ*Г*ГіГѕ ГІ.ГЄ. Random(x) Г*ГҐ Г°Г*áîòГ*ГҐГІ Г± îòðèöГ*òåëüГ*ûìè Г·ГЁГ±Г«Г*ìè  (n ìîæåò ïðèГ*ГїГІГј Г§Г*Г*Г·ГҐГ*ГЁГҐ 0 èëè 1 )
   if n=0 then        // åñëè n = 0
  A[i,j] := Random(20) else // ГЁГ*Г*Г·ГҐ
   A[i,j] := Random(20) *(-1);
  end;         {Г‡Г*ïîëГ*ГїГҐГ¬ ГЊГ*Г±Г±ГЁГў ГђГ*Г*äîìГ*ûìè Г·ГЁГ±Г«Г*ìè îò -19 äî 19 }
  
 For i := 1 to 5 do
  for j := 1 to 5 do
 if A[i,j] < 0 then
  A[i,j] := 0;
  
 
 end.

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


СОХРАНИТЬ ССЫЛКУ