Question

Напишите программу в среде программирования PascalABC. Протестируйте ее.
Дан одномерный массив, значения которого вводятся с клавиатуры. Найдите количество отрицательных элементов данного массива. На экран вывести исходный массив и полученный результат. В качестве ответа напишите код вашей программы (учитывая синтаксис языка программирования Pascal).

Answer 1

program CountNegativeElements;

var

 arr: array of Integer;

 count, i: integer;

begin

 Write('Введите размер массива: ');

 Readln(count);

 

 SetLength(arr, count);

 

 for i := 0 to count - 1 do

 begin

   Write('Введите элемент массива ', i + 1, ': ');

   Readln(arr[i]);

 end;

 

 Write('Исходный массив: ');

 for i := 0 to count - 1 do

   Write(arr[i], ' ');

 Writeln;

 

 count := 0;

 for i := 0 to count - 1 do

   if arr[i] < 0 then

     count := count + 1;

 

 Writeln('Количество отрицательных элементов: ', count);

 

 Readln;

end.