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.

Answer 2

Можем решить задачу с помощью языка программирования Pascal. Вот программный код, который находит и выводит на печать отрицательные элементы из массива:

program NegativeElements;

const
  n = 15; // размер массива

var
  K: array[1..n] of Integer; // массив целых чисел
  i: Integer; // счетчик

begin
  // заполняем массив
  for i := 1 to n do
  begin
    Write('Введите элемент K[', i, ']: ');
    Readln(K[i]);
  end;
  
  // выводим отрицательные элементы
  Writeln('Отрицательные элементы массива K:');
  for i := 1 to n do
  begin
    if K[i] < 0 then
      Write(K[i], ' ');
  end;
  
  Readln;
end.

Данный код предлагает пользователю ввести 15 элементов массива K и затем выводит на печать только отрицательные элементы этого массива.