Решаем задачи Абрамян на Паскале. Array1

Array1. Дано целое число $$N (\gt 0)$$. Сформировать и вывести целочисленный массив размера $$N$$, содержащий $$N$$ первых положительных нечетных чисел: $$1, 3, 5, …$$ .

Решение:

program Array1;
var
  a:array[1..10] of integer;
  N,i:Integer;

begin
  Write('N:');
  Readln(N);
  for i:=1 to N do a[i]:=i*2-1;

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

program Array1;

var

a:array[1..10] of integer;

N,i:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do a[i]:=i*2-1;

for i:=1 to N do writeln(i,' : ',a[i]);

end.

или

program Array1;
var
  a:array[1..10] of integer;
  N,i:Integer;

begin
  Write('N:');
  Readln(N);
  a[1]:=1;
  for i:=2 to N do a[i]:=a[i-1]+2;

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

program Array1;

var

a:array[1..10] of integer;

N,i:Integer;

begin

Write('N:');

Readln(N);

a[1]:=1;

for i:=2 to N do a[i]:=a[i-1]+2;

for i:=1 to N do writeln(i,' : ',a[i]);

end.

Другие задачи из раздела Array можно посмотреть здесь.

Комментарии 1

Bronislav

29.04.2018 в 12:19

begin var n:=10; var a:=SeqGen(n,i->i*2-1,1).ToArray; a.Println; end.

1
2
3
4
5

begin
  var n:=10;
  var a:=SeqGen(n,i->i*2-1,1).ToArray;
  a.Println;
end.

begin var n:=10; var a:=Range(1,100,2).Take(n).ToArray; a.Println; end.

1
2
3
4
5

begin
  var n:=10;
  var a:=Range(1,100,2).Take(n).ToArray;
  a.Println;
end.

Ответить

Решаем задачи Абрамян на Паскале. Array1

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ