Помогите решить задачу. PascalДан массив целых чисел К(15), найти и вывести ** печать...

Question

Помогите решить задачу. Pascal

Дан массив
целых чисел К(15), найти и вывести на печать отрицательные элементы из
этого массива.

Answer 1

Program chik;
var k:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do
read(k[i]);
for i:=1 to 15 do
if(k[i]<0)then write(k[i],' ');<br>end.