Question

ТурбоПаскаль 7. Ввести с клавиатуры одномерный массив А целого типа. Сформировать новый массив С, переписав в него элементы масссива А с индексами кратными 3

Answer 1

const
  nn=100;
var
  A,C:array[1..nn] of integer;
  i,k,n:integer;
begin
  Write('n='); Read(n);
  k:=0;
  for i:=1 to n do begin
    Read(a[i]);
    if i mod 3=0 then begin
      k:=k+1; c[k]:=a[i]
      end
    end;
  Write('C[',k,']= ');
  for i:=1 to k do Write(c[i],' ');
  Writeln
end.

Пример
n=10
3 18 -6 14 21 42 15 28 -7 12
C[3]= -6 42 -7

Answer 2

Тогда бонус: точь в точь решение на современной версии PascalABC.Net 3.2

Answer 3

begin
var a:=ReadArrInteger(ReadInteger('n='));
var c:=a.Where((x,i)->(i+1) mod 3=0).ToArray;
Write('C[',c.Length,']= '); c.Println;
end.

Answer 4

Как говорится, ощутите разницу.

Answer 5

Спасибо огромное за помощь

Answer 6

Да, собственно, ничего особенного. Все как всегда)