Заполнить массив числами: -7 14 -21 28 -35 42... Вывести их ** экран до k-ого элемента...

Question

Заполнить массив числами:
-7 14 -21 28 -35 42...
Вывести их на экран до k-ого элемента включительно(k вводится с клавиатуры, k<=100) <br> На Паскале

Answer 1

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
const n=100;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
  writeln('Введите k');
  readln(k);
  for i:=1 to k do begin
    if i mod 2 <> 0
      then a[i] := -i*7
    else a[i]:=i*7;
    write(a[i]:5);
  end;
end.