Question

Помогите пожалуйста, СРОЧНО!!!! В двумерном массиве положительные элементы, по величине меньшие единицы, установить равными нулю. Решить в паскале

Answer 1

Const n=5;
var
a: array[1..n, 1..n] of real;
i, j: integer;
begin
//считаем массив
for i:=1 to n do
   for j:=1 to n do
      readln(a[i,j]);
//заменим все элементы >0 и <1 нулями
for i:=1 to n do
   for j:=1 to n do
      if (a[i, j] > 0) and (a[i, j] < 1) then
         a[i,j] := 0;
end.

Answer 2

Для решения данной задачи вам потребуется использовать двумерный массив и циклы.

1. Создайте двумерный массив нужного размера, например, 5x5: var arr: array[1..5, 1..5] of integer;

2. Заполните массив случайными положительными числами: for i := 1 to 5 do for j := 1 to 5 do arr[i, j] := Random(10) + 1; // случайное число от 1 до 10

3. Выведите исходный массив на экран для проверки: for i := 1 to 5 do begin for j := 1 to 5 do Write(arr[i, j], ' '); Writeln; end;

4. Произведите замену положительных чисел, меньших единицы, на нули: for i := 1 to 5 do for j := 1 to 5 do if (arr[i, j] > 0) and (arr[i, j] < 1) then arr[i, j] := 0;

5. Выведите измененный массив на экран: for i := 1 to 5 do begin for j := 1 to 5 do Write(arr[i, j], ' '); Writeln; end;

Теперь в массиве все положительные элементы, меньшие единицы, заменены на нули.