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],' ');
end.