Question

Дан ряд из 8 чисел. Найти количество отрицательных чисел; чисел кратных 5. Pascal

Answer 1

Ответ:

var a:array[1..8] of integer = (2,-5,3,8,-1,12,-3,9);

   i,countera,counterb:integer;

begin

   for i:=1 to length(a) do begin

       if a[i]<0 then countera:=countera+1;

       if a[i] mod 5 = 0 then counterb:=counterb+1;

   end;

   writeln('Количество чисел меньше 0: ', countera);

   writeln('Количество чисел кратных 5: ', counterb);

end.

Answer 2

Вот пример программы на Pascal, которая позволяет найти количество отрицательных чисел и количество чисел, кратных 5, в заданном ряде из 8 чисел:

pascalCopy code
program CountNegativesAndMultiplesOf5;

var
  numbers: array[1..8] of integer;
  negativeCount, multiplesOf5Count, i: integer;

begin
  // Заполняем массив числами
  writeln('Введите 8 целых чисел:');
  for i := 1 to 8 do
  begin
    write('Число ', i, ': ');
    readln(numbers[i]);
  end;

  // Инициализируем счетчики
  negativeCount := 0;
  multiplesOf5Count := 0;

  // Подсчитываем отрицательные числа и числа, кратные 5
  for i := 1 to 8 do
  begin
    if numbers[i] < 0 then
      negativeCount := negativeCount + 1;
    
    if numbers[i] mod 5 = 0 then
      multiplesOf5Count := multiplesOf5Count + 1;
  end;

  // Выводим результаты
  writeln('Количество отрицательных чисел: ', negativeCount);
  writeln('Количество чисел, кратных 5: ', multiplesOf5Count);
end.

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