Question

Написать программу в Паскале по задаче: Вычислить сумму положительных и отрицательных элементов массива k(12), заполненного с клавиатуры

Answer 1

var s,i: integer;

k:array [1..100] of integer;

begin  

for i := 1 to 12 do

begin

readln(k[i]);

s :=s + k[i];

end;

writeln('Ответ: ' + s);

end.

Answer 2

Вот программа на языке Паскаль, которая вычисляет сумму положительных и отрицательных элементов массива k(12), заполненного с клавиатуры:

pascalCopy code
program SumOfPositiveAndNegativeElements;

var
  k: array[1..12] of integer;
  i, positiveSum, negativeSum: integer;

begin
  positiveSum := 0;
  negativeSum := 0;

  writeln('Введите элементы массива k(12):');
  
  for i := 1 to 12 do
  begin
    write('k[', i, ']: ');
    readln(k[i]);
    
    if k[i] > 0 then
      positiveSum := positiveSum + k[i]
    else
      negativeSum := negativeSum + k[i];
  end;

  writeln('Сумма положительных элементов: ', positiveSum);
  writeln('Сумма отрицательных элементов: ', negativeSum);

  readln;
end.

Эта программа создает массив k из 12 элементов и заполняет его значениями, введенными пользователем с клавиатуры. Затем она вычисляет сумму положительных и отрицательных элементов массива и выводит результаты на экран.