Question

Паскаль (Pascal ABC) Задача.Массивы. Даны три целых числа: N (> 2), A и B. Сформировать целочисленный массив размера N, каждый элемент которого рассчитывается по формуле: (А+В)*I, где I – индекс элемента массива. Вывести полученный массив на экран, расположив каждый элемент в отдельной строке

Answer 1

Var
   ar:array of integer;
  n,i,a,b:integer;
begin
readln(n,a,b);
setlength(ar,n);
for i:=1 to n-1 do begin
  ar[i]:=(a+b)*i;
  writeln(ar[i]);
 end;
end.

Answer 2

Для решения данной задачи воспользуемся языком программирования Паскаль (Pascal ABC).

Сначала объявим переменные N, A и B, которые будут хранить значения трех целых чисел:

var
  N, A, B: integer;

Затем запросим у пользователя ввод значений для N, A и B:

writeln('Введите N:');
readln(N);
writeln('Введите A:');
readln(A);
writeln('Введите B:');
readln(B);

Далее создадим массив размера N и заполним его элементы, используя формулу (A + B) * I, где I - индекс элемента массива:

var
  arr: array[1..N] of integer;
  i: integer;
  
for i := 1 to N do
  arr[i] := (A + B) * i;

Наконец, выведем полученный массив на экран, расположив каждый элемент в отдельной строке:

for i := 1 to N do
  writeln(arr[i]);

Полный код программы:

var
  N, A, B: integer;
  arr: array[1..N] of integer;
  i: integer;

begin
  writeln('Введите N:');
  readln(N);
  writeln('Введите A:');
  readln(A);
  writeln('Введите B:');
  readln(B);

for i := 1 to N do
    arr[i] := (A + B) * i;

for i := 1 to N do
    writeln(arr[i]);
end.

После запуска программы пользователь будет запрошен ввести значения для N, A и B. Затем программа выведет полученный массив на экран, где каждый элемент будет расположен в отдельной строке.