Question

Нужно написать 2 программы pascal 1. Дан одномерный массив из 20 элементов, массив заполнен случайными числами от -50 до 50. Вывести на экран все отрицательные элементы массива. 2. Дан одномерный массив из 30 элементов, массив заполнен случайными числами от 0 до 50. Найти сумму элементов массива.

Answer 1

Прикрепляю файлы с программами во вложения.

===PascalABC.NET===

Answer 2

// PascalABC.NET

begin

 // 1

 var a := ArrRandom(20, -60, 50);

 a.Println.Where(p -> p < 0).Println;

 // 2

 var b := ArrRandom(30, 0, 50);

 b.Println.Sum.Print

end.

Answer 3

Конечно! Вот две программы на языке Pascal, выполняющие заданные вами задачи:

Программа 1: Вывод отрицательных элементов массива

pascalCopy code
program NegativeElements;

const
  N = 20;

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

begin
  Randomize;

  // Заполняем массив случайными числами от -50 до 50
  for i := 1 to N do
    arr[i] := Random(101) - 50;

  // Выводим отрицательные элементы массива
  writeln('Отрицательные элементы массива:');
  for i := 1 to N do
    if arr[i] < 0 then
      writeln(arr[i]);

  readln;
end.

Программа 2: Нахождение суммы элементов массива

pascalCopy code
program ArraySum;

const
  N = 30;

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

begin
  Randomize;

  // Заполняем массив случайными числами от 0 до 50
  for i := 1 to N do
    arr[i] := Random(51);

  // Вычисляем сумму элементов массива
  sum := 0;
  for i := 1 to N do
    sum := sum + arr[i];

  writeln('Массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  writeln;
  writeln('Сумма элементов массива: ', sum);

  readln;
end.

Скопируйте каждую программу в свой редактор Pascal и скомпилируйте ее. Первая программа выводит все отрицательные элементы массива, а вторая находит сумму элементов массива и также выводит сам массив для наглядности.