Question

Мне нужна помощь: В паскаль Рассмотрим массив T [1..n] целых чисел, где n <= 20. Напишите программу, используя процедуру, которая будет отображать положительные элементы этого массива. Спасибо заранее.

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

procedure ВыводПоложительных(a: array of integer);

begin

 a.Where(t -> t > 0).Println

end;

begin

 var T := ArrRandom(ReadInteger('n='), -50, 50);

 T.Println;

 ВыводПоложительных(T)

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая будет отображать положительные элементы массива:

pascalCopy code
program DisplayPositiveElements;

const
  MaxN = 20; // Максимальный размер массива

type
  TArray = array[1..MaxN] of Integer;

procedure DisplayPositiveElementsInArray(var T: TArray; n: Integer);
var
  i: Integer;
begin
  writeln('Положительные элементы массива:');
  for i := 1 to n do
  begin
    if T[i] > 0 then
      writeln(T[i]);
  end;
end;

var
  n, i: Integer;
  T: TArray;

begin
  write('Введите размер массива (n <= 20): ');
  readln(n);

  if (n < 1) or (n > MaxN) then
  begin
    writeln('Некорректный размер массива. Размер должен быть от 1 до 20.');
    halt; // Завершаем программу
  end;

  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('T[', i, '] = ');
    readln(T[i]);
  end;

  DisplayPositiveElementsInArray(T, n);

  readln;
end.

Эта программа сначала запрашивает у пользователя размер массива n (не более 20), затем запрашивает элементы массива и, наконец, вызывает процедуру DisplayPositiveElementsInArray, которая отображает положительные элементы массива.