Помогите решить задачу. PascalДан массив целых чисел К(15), найти и вывести на печать отрицательные элементы из этого массива.
Помогите решить задачу. Pascal
Дан массив
целых чисел К(15), найти и вывести на печать отрицательные элементы из
этого массива.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы