1.дано действительное число x и целое число n вывести n первых челнов арифметическойкой прогрессии и найти сумму ее первых членов если первый член x а разность 1, 12 2.дано действительное число x и целое число n вывести n первых членов арифметическойкой прогрессии и найти сумму ее первых членов если первый член x а разность (-2, 2)

Универсальное решение

var
    a, d, s: real;
    i, n: integer;

begin
    writeln('Введите х, разность и n');
    readln(a, d, n);
    
    s := a;
    for i := 2 to n do
    begin
        a := a + d;
        s := s + a;
    end;
    
    writeln(s);
end.

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := 25;

 var M := ArrRandom(n, -50, 50);

 M.Println; // исходный массив

 // пузырьковая сортировка

 for var i := n - 2 downto 0 do

   for var j := 0 to i do

     if M[j] > M[j + 1] then Swap(M[j], M[j + 1]);

 M.Println; // отсортированный массив

 var C := ReadInteger('Значение удаляемого элемента:');

 var p := M.BinarySearch(C);

 if p >= 0 then

 begin

   M := (M?[:p] + M?[p + 1:]).ToArray;

   M.Println; // результат

 end

 else Println('Элемент не найден')

end.

Решение с массивами

#include <bits/stdc++.h>

using namespace std;

int main() {

   int a[10];

   int i = 0;

   while (i < 10) {

     cin >> a[i];

     ++i;

   }

   i = 0;

   while (i < 10) {

     cout << (2 * a[i] * a[i]) << endl;

     ++i;

   }

   return 0;

}

Решение без массивов (онлайн-вывод)

#include <bits/stdc++.h>

using namespace std;

int main() {

   int x;

   int i = 0;

   while (i < 10) {

     cin >> x;

     cout << (2 * x * x) << endl;

     ++i;

   }

   return 0;

}