Question

Найти кол-во отрицательных чисел этого массива const n=15; var a: array[1..n] of integer; i,k: integer; begin randomize; k:= ; for i:=1 to n do a[i]:= random(51)-25; for i:=1 to n do write(a[i]:4); writeln; for i:=1 to n do if a[i] then k:=; writeln('кол-во отрицательных: ', ); end.

Answer 1

for i:=1 to n do
begin
   if a[i]<0 then 
   begin
      k=k+1;
   end;
end;
writeln('кол-во отрицательных: ', k);

Answer 2

Программа, на языке Pascal, ищет количество отрицательных чисел в массиве и выводит результат на экран.

В начале программы объявляется переменная n, которая указывает размер массива (в данном случае равен 15). Затем объявляется массив a с элементами типа integer.

Далее программа использует процедуру randomize для инициализации генератора случайных чисел. Затем с помощью цикла for заполняется массив a случайными числами от -25 до 25.

Далее программа выводит содержимое массива a на экран, каждый элемент отформатирован с помощью модификатора :4.

Затем с помощью второго цикла for программа проходит по всем элементам массива a и проверяет, является ли элемент отрицательным числом. Если да, то переменная k увеличивается на 1.

Наконец, программа выводит количество отрицательных чисел в массиве, используя переменную k и текстовое сообщение.

Таким образом, программа находит количество отрицательных чисел в массиве a и выводит результат на экран.