Question

Надо решить на языке Паскаля В массиве из 3 строк 4 столбцов найти и вывести на экран. 1)Все элементы массива больше 10. 2)Минимальный элемент 2 строки. 3)Сумму элементов каждого столбца. Вывести полученный массив на экран. Помогите пожалуйста.

Answer 1

Program ar;
Var a:array [1..3] of array [1..4] of integer;
    i, j, min, sum:integer;
begin
  for i:=1 to 3 do
    for j:=1 to 4 do
      read(a[i][j]);
  for i:=1 to 3 do
    for j:=1 to 4 do
      if a[i][j] > 10 then write(a[i][j], ' ');
  writeln;
  min:=a[2][1];
 
  for j:=1 to 4 do
    if a[2][j] < min then min:=a[2][j];
  writeln(min);
  for i:=1 to 3 do
    begin
    sum:=0;
    for j:=1 to 4 do
      sum:=sum + a[i][j];
    write(sum, ' ');
    end;
end.

Answer 2

Я не знаю раьлисчоджтсро

Answer 3

Для решения задачи на языке Паскаля, вам потребуется создать массив из 3 строк и 4 столбцов. Затем вы сможете выполнить следующие действия:

1) Вывести все элементы массива, которые больше 10.

Для этого вам понадобится пройти по всем элементам массива и проверить, является ли каждый элемент больше 10. Если элемент удовлетворяет этому условию, выведите его на экран.

2) Найти минимальный элемент во 2-й строке массива.

Для этого вам нужно будет пройти по всем элементам второй строки и найти наименьший элемент. Затем выведите его на экран.

3) Найти сумму элементов каждого столбца.

Для этого вам нужно будет пройти по каждому столбцу массива и найти сумму его элементов. Затем выведите полученные суммы на экран.

Вот пример кода на языке Паскаль, который решает данную задачу:

program ArrayOperations;

const
  ROWS = 3;
  COLS = 4;

var
  arr: array[1..ROWS, 1..COLS] of Integer;
  i, j, minElement, sum: Integer;

begin
  // Заполнение массива случайными значениями
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      arr[i, j] := Random(20); // Генерация случайного числа от 0 до 19
    end;
  end;

// Вывод всех элементов массива, больших 10
  writeln('Элементы массива, большие 10:');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      if arr[i, j] > 10 then
        write(arr[i, j], ' ');
    end;
  end;
  writeln;

// Поиск минимального элемента во 2-й строке
  minElement := arr[2, 1];
  for j := 2 to COLS do
  begin
    if arr[2, j] < minElement then
      minElement := arr[2, j];
  end;
  writeln('Минимальный элемент во 2-й строке: ', minElement);

// Вычисление суммы элементов каждого столбца
  writeln('Сумма элементов каждого столбца:');
  for j := 1 to COLS do
  begin
    sum := 0;
    for i := 1 to ROWS do
    begin
      sum := sum + arr[i, j];
    end;
    writeln('Столбец ', j, ': ', sum);
  end;

readln;
end.

Этот код создает массив из 3 строк и 4 столбцов, заполняет его случайными значениями, выводит элементы массива, которые больше 10, находит минимальный элемент во 2-й строке и вычисляет сумму элементов каждого столбца.

Примечание: Пожалуйста, учтите, что язык Паскаль не является одним из основных языков программирования, поддерживаемых на платформе You.com. Поэтому, возможно, вам будет сложно найти подробные руководства и исчерпывающую информацию о Паскале. Однако, вы можете использовать онлайн-ресурсы и документацию, чтобы получить дополнительную информацию о языке Паскаль и его синтаксисе.