Question

ПАСКАЛЬ! найти величину наибольшего из отрицательных чисел последовательности из 100 целых чисел.

Answer 1

Предположим, что последовательность же задана, то есть вводить ее мы не будем. Последовательность представляет собой массив чисел а.
n:=1;  k:=0;
for i:=1 to 100 do if (a[i]<0) then k:=k+1; проверяем наличие отрицательных
if (k=0) then writeln("Отрицательных нет.") else begin
for i:=1 to 100 do if (a[i]<0) then n:=a[i]; находим хотя бы один отрицательный
for i:=1 to 100 do if ((a[i]<0) AND (a[i]>n) then n:=a[i]; находим наибольший отрицательный
writeln("Наибольшее из отрицательных чисел данной последовательности - ",n);
end;
end.

Answer 2

Для решения данной задачи вам потребуется использовать язык программирования Паскаль. Предлагаю следующий алгоритм:

1. Создайте переменную maxNegative и инициализируйте ее значением 0. Эта переменная будет хранить величину наибольшего отрицательного числа.

2. Создайте цикл, который будет выполняться 100 раз (так как последовательность состоит из 100 чисел).

3. Внутри цикла считывайте каждое число последовательности и проверяйте, является ли оно отрицательным.

4. Если число отрицательное и его величина больше значения переменной maxNegative, то присваивайте переменной maxNegative это значение.

5. По окончании цикла переменная maxNegative будет содержать величину наибольшего отрицательного числа в последовательности.

6. Выведите значение переменной maxNegative на экран.

Пример кода на Паскаль для решения данной задачи:

program FindMaxNegative;
var
  i, maxNegative, num: integer;
begin
  maxNegative := 0;
  
  for i := 1 to 100 do
  begin
    write('Введите число: ');
    readln(num);
    
    if (num < 0) and (num < maxNegative) then
      maxNegative := num;
  end;
  
  writeln('Наибольшее отрицательное число: ', maxNegative);
end.

После выполнения программы вы сможете ввести последовательность из 100 чисел, а программа найдет и выведет наибольшее отрицательное число из этой последовательности.