Заполнить массив из 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

Question

Информатика

Геша

28 июля, 04:10

Заполнить массив из 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

+3

Ответы (2)

Знаете ответ?

Эльвира · 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 20) then a[i]:=-i;

write (a[i]:5) ;

end;

end.