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

Array11. Дан массив $$A$$ размера $$N$$ и целое число $$K (1 \leq K \leq N)$$. Вывести элементы массива с порядковыми номерами, кратными $$K: A_K, A_{2*K}, A_{3*K}, …$$ . Условный оператор не использовать.

Решение:

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

begin
  Write('N:');
  Readln(N);
  Write('K:');
  Readln(K);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;
  i:=K;
  While (i<=N) do
   begin
    writeln(i,' : ',a[i]);
    i:=i+K;
   end;
end.

program Array11;

var

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

N,i,K:Integer;

begin

Write('N:');

Readln(N);

Write('K:');

Readln(K);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=K;

While (i<=N) do

begin

writeln(i,' : ',a[i]);

i:=i+K;

end;

end.

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

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

Bronislav

28.04.2018 в 19:11

//PascalABC.NET begin var n:=20; var a:=ArrRandom(n); a.Println; var k:=3; foreach var x in range(2,n-1,k) do a[x].Print; end.

1
2
3
4
5
6
7
8
9

//PascalABC.NET
begin
  var n:=20;
  var a:=ArrRandom(n);
  a.Println;
  var k:=3;
  foreach var x in range(2,n-1,k) do
    a[x].Print;
end.

Ответить
Bronislav

28.04.2018 в 19:12

//PascalABC.NET begin var a:=ArrRandom(20); a.Println; var k:=3; a.Where((el,ind)->(ind+1) mod k = 0).Println; end.

1
2
3
4
5
6
7

//PascalABC.NET
begin
  var a:=ArrRandom(20);
  a.Println;
  var k:=3;
  a.Where((el,ind)->(ind+1) mod k = 0).Println;
end.

Ответить

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

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

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

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