Question

Ребят срочно помогите!!! занятие через 30 мин ( паскаль) 1.Напишите программу, которая в последовательности целых чисел определяет количество отрицательных чисел и сумму положительных. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: количество отрицательных чисел и сумму положительных. 2.Напишите программу, которая в последовательности целых чисел определяет максимальное и минимальное число и выводит сумму этих чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000, но не может быть меньше 2. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число — сумму максимального и минимального числа.

Answer 1

Задача 1:

var a,s1,s2: integer;

begin

s1:=0;

s2:=0;

repeat

readln(a);

if (a<0) then s1:=s1+1

else if (a>0) then s2:=s2+a;

until (a=0);  

writeln('Количество отрицательных: ',s1);

writeln('Сумма положительных: ',s2);

end.

Задача 2:

var a,i,n,min,max: integer;

begin

write('Введите кол-во чисел в последовательности: ');

readln(n);

write('Введите ',1,' число: ');

readln(a);

max:=n;

min:=n;

for i:=2 to n do

 begin

 write('Введите ',i,' число: ');

 readln(a);

 if (a>max) then max:=a;

 if (a<min) then min:=a;

 end;

writeln('Минимальное число: ',min);

writeln('Максимальное число: ',max);

writeln('Их сумма: ',min+max);

end.

Answer 2

Конечно, я помогу вам написать программы на языке Pascal для обеих задач. Вот решения:

Задача 1: Определение количества отрицательных чисел и суммы положительных

pascalCopy code
program Task1;
var
  num, negatives, positivesSum: integer;
begin
  negatives := 0;
  positivesSum := 0;
  
  repeat
    readln(num);
    
    if num < 0 then
      negatives := negatives + 1
    else if num > 0 then
      positivesSum := positivesSum + num;
  until num = 0;
  
  writeln('Количество отрицательных чисел: ', negatives);
  writeln('Сумма положительных чисел: ', positivesSum);
end.

Задача 2: Определение максимального и минимального числа и вывод суммы

pascalCopy code
program Task2;
var
  n, num, minNum, maxNum, sum: integer;
  i: integer;
begin
  readln(n);
  
  // Считываем первое число, чтобы использовать его как начальное значение минимума и максимума
  readln(num);
  minNum := num;
  maxNum := num;
  sum := num;
  
  for i := 2 to n do
  begin
    readln(num);
    
    if num < minNum then
      minNum := num;
    if num > maxNum then
      maxNum := num;
    
    sum := sum + num;
  end;
  
  writeln('Сумма максимального и минимального числа: ', maxNum + minNum);
end.

Скопируйте соответствующий код для каждой задачи в среду разработки Pascal (например, Lazarus или Free Pascal), сохраните файлы и скомпилируйте их. После компиляции вы можете ввести последовательность чисел и получить результаты для обеих задач.