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

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


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.


Похожие ответы
  1. Написать программу для определения суммы элементов над главной диагональю матрицы. Ввод и размерность матрицы осуществляется с клавиатуры.

  1. СДЕЛАТЬ ЧЕРЕЗ CONST Заполните массив случайными числами в интервале [0;100] и найдите среднее арифметическое его значение Пример: массив: 1 2 3 4 5 среднее арифметическое 3.000

  1. Помогите заполнить двумерный массив размером 7 7 так 1 0 0 1 0 0 1 0 1 0 1 0 1 0 0 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 0 0 1 0 1 0 1 0 1 0 0 1 0 0 1

  1. Нужно написать код с использованием двумерных массивов с предусловием и послеусловием

  1. Доброго времени суток. Помогите разобраться с задачей. Дан одномерный массив А[20]. Заполнить двумерный массив B(10*10) по следующему правилу: четные строки массива В заполнить элементами расположенными на четных позициях массива А, нечетные строки массива В заполнить элементами расположенными на нечетных позициях массива А.

  1. 1. Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него элементы стоят по возрастанию, а справа – по убыванию (ввести X с клавиатуры). Соседние элементы отличаются на единицу. Например: 1 2 3 2 1.

  1. Всем привет) Помогите пожалуйста решить задачку, не могу придумать алгоритм, хоть об стенку бейся, уже голова болит( Из предложенного одномерного массива размерностью S сформируйте двумерный массив так, чтобы первая строка новой таблицы содержала четные по номеру элементы исходного массива, а вторая – нечетные. Предусмотрите случай нечетности S. Вроде легкая задача, но нервы сумела потрепать( Спасибо заранее)

  1. 1.Допустимый набор символов включает точные и заглавные латинские буквы, а также цифры.заполните массив из 20 элементов случайными символами из этого набора так, чтобы все символы в нем были различными. 2.  

  1. Задача: Заполните массив случайными числами и найти два максимальных элемента массива и их номера. Пример:Массив: 5 5 3 4 1 Максимальный элемент: A[1]=5 Второй максимум: A[2]=5

  1. Заполните массив случайными числами и переставьте соседние элементы, поменяв 1-й элемент со 2-м,3-й - с 4-м и тд