Question

Дан одномерный массив [-50:50], нужно вывести числа больше 7, программа на Паскаль

Answer 1

Var a:array[-50..50] of longint;i:longint;
Begin
for i:=-50 to 50 do
if (i>7) then write(i,' ');
writeln;
End.

Answer 2

Вот пример программы на языке Pascal, которая выводит числа больше 7 из заданного одномерного массива:

pascalCopy code
program ArrayExample;

const
  N = 101; // Количество элементов в массиве
  LowerBound = -50; // Нижняя граница диапазона
  UpperBound = 50; // Верхняя граница диапазона

var
  arr: array[1..N] of Integer;
  i: Integer;

begin
  // Заполняем массив значениями от -50 до 50
  for i := 1 to N do
    arr[i] := LowerBound + i - 1;

  // Выводим числа больше 7
  for i := 1 to N do
  begin
    if arr[i] > 7 then
      WriteLn(arr[i]);
  end;
end.

В этом примере массив arr размером 101 элемент заполняется значениями от -50 до 50. Затем мы проходимся по массиву и выводим только те числа, которые больше 7. Каждое такое число выводится на новой строке с помощью WriteLn.