Question

Помогите , пожалуйста, с решением двух задач ! Очень срочно. Нужно написать программу на Паскаль, заранее, спасибо!) В двумерном массиве 5 x 5, заполненный случайными числами, найти количество положительных элементовДан двумерный массив A[n,n]. Сформировать одномерный массив В, состоящий только их элементов главной диагонали.

Answer 1

Var a: array[1..5,1..5] of integer;
pol,i,j:integer;
begin 
randomize;
for i:=1 to 5 do 
 for j:=1 to 5 do  a[i,j]:=random(100)-50;
for i:=1 to 5 do
  for j:=1 to 5 do  if a[i,j]>0 then inc(pol);
write(pol);
end.

Answer 2

Задача 1: Нахождение количества положительных элементов в двумерном массиве

Для решения этой задачи нужно создать двумерный массив размером 5x5 и заполнить его случайными числами. Затем нужно пройти по всем элементам массива и проверить, является ли каждый элемент положительным. Если элемент положительный, увеличиваем счетчик положительных элементов. После того, как мы прошли все элементы, выводим результат.

Вот код решения на Паскале:

goCopy code
program positive_count;

const
  n = 5;

var
  arr: array[1..n, 1..n] of integer;
  i, j, count: integer;

begin
  randomize;

  // заполняем массив случайными числами
  for i := 1 to n do
    for j := 1 to n do
      arr[i, j] := random(21) - 10; // генерируем случайное число от -10 до 10

  // находим количество положительных элементов
  count := 0;
  for i := 1 to n do
    for j := 1 to n do
      if arr[i, j] > 0 then
        count := count + 1;

  // выводим результат
  writeln('Количество положительных элементов: ', count);
end.

Здесь мы используем процедуру randomize, чтобы инициализировать генератор случайных чисел. Затем мы заполняем массив arr случайными числами от -10 до 10. Затем мы проходим по всем элементам массива и проверяем, является ли каждый элемент положительным. Если элемент положительный, мы увеличиваем счетчик count. После того, как мы прошли все элементы, мы выводим результат.

Задача 2: Формирование одномерного массива из элементов главной диагонали

Для решения этой задачи нужно создать двумерный массив размером n x n и заполнить его случайными числами. Затем нужно пройти по главной диагонали массива и скопировать ее элементы в новый одномерный массив. После того, как мы скопировали все элементы, выводим результат.

Вот код решения на Паскале:

phpCopy code
program diagonal_array;

const
  n = 5;

var
  arr: array[1..n, 1..n] of integer;
  diagonal: array[1..n] of integer;
  i, j: integer;

begin
  randomize;

  // заполняем массив случайными числами
  for i := 1 to n do
    for j := 1 to n do
      arr[i, j] := random(21) - 10; // генерируем случайное число от -10 до 10

  // копируем элементы главной ди