Задание:
Помогите пожалуйста написать программу: «Найти номера отрицательных элементов одномерного числового массива и вывестиих на экран.
Решение:
var a: array [1… 15] of integer; i: integer; Begin for i: =1 to 15 do read (a[i]); for i: =1 to 15 do if a[i] < 0 then write (i,'); End.
Знаете другой ответ?