Question

Вывести и заполнить массив состоящий из 14 элементов последовательностью -2 2 -2 2 -2 2 -2 2

Answer 1

Const   col=14;
var     i:byte;
        T:array[1..col] of shortint;
begin
  writeln('Массив из ',col,' элементов');

  T[1]:=-2;
  write(T[1]:6);
 
  for i:=2 to col do begin
    T[i]:=T[i-1]*(-1);
   
    write(T[i]:6);
  end;
end.