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

75

lorenc

17 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: