Question

SOS!! Составить задачу подсчета отрицательных элементов из пяти целых чисел(в Pascal ABC.Net)

Answer 1

Const n=5;
var
a:array [1..n] of integer;
i,k:integer;
begin
for i:= 1 to n do
a[i]:= Random(-10,10);
writeln(a);
for i:=1 to n do
if a[i] < 0 then k:=k+1;
writeln('Отрицательных элементов: ',k)
end.

Пример:
[0,1,-1,-4,-8]
Отрицательных элементов: 3

Answer 2

Конечно, вот пример задачи для подсчета отрицательных элементов из пяти целых чисел в Pascal ABC.Net:

Задача: Напишите программу, которая считывает пять целых чисел и определяет их количество отрицательных чисел.

Входные данные: Пользователь должен ввести пять целых чисел, каждое число в отдельной строке.

Выходные данные: Программа должна вывести количество отрицательных чисел среди введенных.

Пример работы программы:

Copy code
Введите первое число: -5
Введите второе число: 10
Введите третье число: -8
Введите четвертое число: 0
Введите пятое число: -3

Количество отрицательных чисел: 3

Код программы на Pascal ABC.Net:

pascalCopy code
Program CountNegativeNumbers;

Var
  num, count, i: Integer;

Begin
  count := 0;
  Writeln('Введите пять целых чисел:');
  
  For i := 1 to 5 do
  Begin
    Write('Введите число ', i, ': ');
    ReadLn(num);
    
    If num < 0 then
      count := count + 1;
  End;
  
  Writeln('Количество отрицательных чисел: ', count);
End.

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