Напишите программу, которая заполняет массив из n элементов последовательными натуральными числами, начиная с x , и выводит его. на языке pascal

бог20031 бог20031    3   03.08.2019 18:50    10

Ответы
kolomietslina kolomietslina  03.10.2020 20:44
Var  ar: array[1..10000]of integer;
  i, n, x: integer;
begin
  write('Введите N:');
  read(n);
  write('Введите X:');
  read(x);
    for i := 1 to n do
     begin
      ar[i] := x;
      x:=x+1;
      write(ar[i], ' ');
    end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика