Question

Напишите программу, которая ввод данных в одномерный целочисленный массив осуществляет посредством цикла WHILE...DO, а вывод – REPEAT...UNTIL (в скобках указана размерность массива)1. подсчитать произведение неотрицательных элементов в двухмерном массиве 6 × 3;

Answer 1

Program z1;
var
i, j, p: integer;
a: array[1..6, 1..3] of integer;
begin
p := 1;
i := 1;
j := 1;
while i <= 6 do
begin
    while j <= 3 do
    begin
        write('a[',i,'][',j,']=');
        readln(a[i,j]);
        j := j + 1;
    end;
    i := i + 1;
end;
i := 1;
j := 1;
repeat
    repeat
        if a[i,j] >= 0 then
           p := p * a[i,j];
        j := j + 1;
    until j > 3;
    i := i + 1;
until i > 6;
writeln('произведение неотрицательных элементов: ',p);
end.

Answer 2

Прежде всего, следует отметить, что в Pascal, который, кажется, вы используете, нет прямой поддержки двумерных массивов. Однако вы можете использовать одномерный массив, представляя его как один большой массив, и обращаться к элементам, используя вычисления индексов.

Давайте напишем программу на Pascal, которая создает одномерный целочисленный массив, заполняет его данными с использованием цикла WHILE...DO и выводит результат с использованием цикла REPEAT...UNTIL.

program ArrayExample;

const
  Rows = 6; // Количество строк в "двумерном" массиве
  Cols = 3; // Количество столбцов в "двумерном" массиве

var
  OneDimensionalArray: array[1..Rows * Cols] of Integer;
  i, j, product: Integer;

begin
  // Заполнение одномерного массива случайными значениями
  Randomize;
  for i := 1 to Rows * Cols do
    OneDimensionalArray[i] := Random(100) - 50; // случайные числа от -50 до 49

// Вывод содержимого массива
  writeln('Содержимое одномерного массива:');
  i := 1;
  while i <= Rows * Cols do
  begin
    write(OneDimensionalArray[i]:4);
    Inc(i);
    if (i - 1) mod Cols = 0 then
      writeln;
  end;

// Подсчет произведения неотрицательных элементов
  i := 1;
  product := 1;
  repeat
    if OneDimensionalArray[i] >= 0 then
      product := product * OneDimensionalArray[i];
    Inc(i);
  until i > Rows * Cols;

writeln('Произведение неотрицательных элементов: ', product);

readln;
end.

Программа создает одномерный массив, заполняет его случайными значениями и выводит содержимое массива. Затем она вычисляет произведение неотрицательных элементов с использованием цикла REPEAT...UNTIL.