Задание:
Заполнить массив из 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
Решение:
Uses crt; const n=1000; var a: array[1… n] of integer; i: integer; beginfor i: =1 to n dobeginif (i mod 2=0) then a[i]: =i; if (i mod 2<>0) then a[i]: =-i; write (a[i]: 5); end; end.
Знаете другой ответ?