Заполнить массив из 1000 элементов значениями индексов массива следующим образом:все...

Question

Заполнить массив из 1000 элементов значениями индексов массива следующим образом:
все нечетные элементы должны быть отрицательными, а четные – положительными.
(А[1] = -1, А[3] = --3, А[5] = -5, А[7] = -7, А[9] = -9,….., А[999] = -999, А[2] = 2, А[4] = 4, А[6] = 6, А[8] = 8, А[10] = 10,…., А[1000] = 1000.) Вывести массив в строку.
Сделать в Pascal ABC

Answer 1

Program Task;
Var a: Array[1..1000] of Integer;
    i: Integer;
Begin
    For i := 1 To 1000 Do
    Begin
        If i Mod 2 = 0 Then a[i] := i
        Else a[i] := -i;
        Write(a[i], ' ');
    End;
End.
    

Answer 2

Uses crt;
const n=1000;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
begin
if (i mod 2=0) then a[i]:=i;
if (i mod 2<>0) then a[i]:=-i;
write(a[i]:5);
end;
end.