Question

Помоги плз, Pascal. 1)Дан массив Z(8). Определить количество элементов, меньших, чем пятый элемент. 2)Дан массив D(12).Определить сумму отрицательных элементов массива. 3)Дан массив R(10). Все нулевые элементы заменить суммой всех элементов.

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var z:=ArrRandom(8,1,20); z.Println;
  Writeln(z.Where(x->x>z[4]).Count);
  var d:=ArrRandom(12,-20,20); d.Println;
  Writeln(d.Where(x->x<0).Sum);
  var r:=ArrRandom(10,-9,9); r.Println;
  var s:=r.Sum;
  for var i:=0 to 9 do if r[i]=0 then r[i]:=s;
  r.Println
end.

Тестовое решение:
15 10 10 8 8 20 19 12
6
-17 -11 -3 -15 -11 -12 -16 19 1 1 11 -15
-100
2 -2 1 0 -8 1 -1 0 -5 9
2 -2 1 -3 -8 1 -1 -3 -5 9

Answer 2

Решение задач по Pascal

1) Для определения количества элементов массива Z(8), которые меньше пятого элемента, можно использовать следующий код на Pascal:

program CountElementsLessThanFifth;
var
  Z: array[1..8] of Integer;
  i, count: Integer;
begin
  count := 0;
  // Ввод элементов массива Z
  for i := 1 to 8 do
  begin
    // Ввод Z[i]
  end;
  
  // Определение количества элементов, меньших, чем пятый элемент
  for i := 1 to 8 do
  begin
    if Z[i] < Z[5] then
      count := count + 1;
  end;
  
  // Вывод результата
  writeln('Количество элементов, меньших, чем пятый элемент: ', count);
end.

2) Для определения суммы отрицательных элементов массива D(12) на Pascal, можно использовать следующий код:

program SumOfNegativeElements;
var
  D: array[1..12] of Integer;
  i, sum: Integer;
begin
  sum := 0;
  // Ввод элементов массива D
  for i := 1 to 12 do
  begin
    // Ввод D[i]
  end;
  
  // Определение суммы отрицательных элементов
  for i := 1 to 12 do
  begin
    if D[i] < 0 then
      sum := sum + D[i];
  end;
  
  // Вывод результата
  writeln('Сумма отрицательных элементов массива: ', sum);
end.

3) Для замены всех нулевых элементов массива R(10) суммой всех элементов на Pascal, можно использовать следующий код:

program ReplaceZeroElementsWithSum;
var
  R: array[1..10] of Integer;
  i, sum: Integer;
begin
  sum := 0;
  // Ввод элементов массива R
  for i := 1 to 10 do
  begin
    // Ввод R[i]
    sum := sum + R[i]; // Вычисление суммы всех элементов
  end;
  
  // Замена нулевых элементов суммой всех элементов
  for i := 1 to 10 do
  begin
    if R[i] = 0 then
      R[i] := sum;
  end;
  
  // Вывод результата
  writeln('Массив после замены нулевых элементов: ');
  for i := 1 to 10 do
  begin
    writeln(R[i]);
  end;
end.

Надеюсь, это поможет вам решить задачи по Pascal!