Question

Срочно нужна программа в Паскале! 1. Ввести массив а[1], а[2],..... а[n] целого типа и найти сумму квадратов всех элементов массива. Если она больше 100, то вывести ее на экран, в противном случае вывести на экран сам массив. 2. В одномерном массиве вещественных чисел вычислить сумму отицательных элементов, имеющих нечётные индексы.

Answer 1

===== PascalABC.NET =====

1.

begin

 var n := ReadInteger('n =');

 var a := ReadArrInteger('Вводи:', n);

 var s := a.Select(p -> p * p).Sum;

 if s > 100 then

   Println(s)

 else

   a.Println;

end.

2.

begin

 var n := ReadInteger('n =');

 var a := ReadArrReal('Вводи:', n);

 var (s, i) := (0.0, 0);

 while i <= n - 1 do

 begin

   if a[i] < 0 then

     s += a[i];

   i += 2

 end;

 Print(s)

end.

Answer 2

Конечно, вот программа на Паскале для выполнения указанных задач:

pascalCopy code
program SumOfSquares;

const
  MaxArraySize = 100;

var
  a: array [1..MaxArraySize] of integer;
  n, i: integer;
  sumOfSquares: longint;
  sumOfNegativesWithOddIndices: real;

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

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

  // Вычисление суммы квадратов всех элементов массива
  sumOfSquares := 0;
  for i := 1 to n do
    sumOfSquares := sumOfSquares + sqr(a[i]);

  // Проверка условия и вывод результата
  if sumOfSquares > 100 then
    writeln('Сумма квадратов элементов массива больше 100: ', sumOfSquares)
  else
  begin
    writeln('Сумма квадратов элементов массива:');
    for i := 1 to n do
      write(a[i], ' ');
  end;

  // Вычисление суммы отрицательных элементов с нечетными индексами
  sumOfNegativesWithOddIndices := 0;
  for i := 1 to n do
  begin
    if (i mod 2 <> 0) and (a[i] < 0) then
      sumOfNegativesWithOddIndices := sumOfNegativesWithOddIndices + a[i];
  end;

  writeln;
  writeln('Сумма отрицательных элементов с нечетными индексами: ', sumOfNegativesWithOddIndices);

end.

Сначала программа вводит размер массива и его элементы, затем вычисляет сумму квадратов всех элементов. Если сумма больше 100, программа выводит ее на экран, в противном случае выводит сам массив. Затем программа вычисляет сумму отрицательных элементов с нечетными индексами и выводит ее на экран.