Question

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

Answer 1

Var
   a: array[1..15] of integer;
   i, sum, count: integer;
begin
   for i:=1 to 15 do
      readln(a[i]);
   sum := 0; count := 0;
   for i:=1 to 15 do
      if a[i] > 0 then
      begin
         sum := sum + a[i];
         inc(count);
      end;
   writeln(sum, ' ', count);
end.

Answer 2

Program n1;
var a: array [1..15] of integer;
S,k, i: integer;
begin
for i:=1 to 15 do readln(a[i]);
S:=0;
k:=1;
for i:=1 to 15 do
begin
if(a[i]>0) then
begin
S:=S+a[i];
k:=k+1;
end;
end;
writeln(k);
writeln(S);
end.

Answer 3

Вот пример программы на языке Pascal, которая подсчитывает сумму и количество положительных элементов в массиве из 15 чисел:

program CountPositiveElements;

var
  arr: array[1..15] of Integer;
  i, count, sum: Integer;

begin
  count := 0;
  sum := 0;

// Заполнение массива случайными числами
  Randomize;
  for i := 1 to 15 do
  begin
    arr[i] := Random(21) - 10; // Генерация чисел от -10 до 10
    Write(arr[i], ' ');
  end;
  Writeln;

// Подсчет суммы и количества положительных элементов
  for i := 1 to 15 do
  begin
    if arr[i] > 0 then
    begin
      count := count + 1;
      sum := sum + arr[i];
    end;
  end;

// Вывод результатов
  Writeln('Количество положительных элементов: ', count);
  Writeln('Сумма положительных элементов: ', sum);

Readln;
end.

Программа начинается с объявления переменных `arr` (массив из 15 целых чисел), `i` (счетчик), `count` (количество положительных элементов) и `sum` (сумма положительных элементов).

Затем программа заполняет массив `arr` случайными числами от -10 до 10 и выводит его на экран.

Далее, с помощью цикла `for`, программа проходит по каждому элементу массива и проверяет, является ли он положительным. Если элемент положительный, то увеличивается счетчик `count` и добавляется к сумме `sum`.

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

Примечание: В приведенном примере используется генератор случайных чисел для заполнения массива. Если вам нужно ввести значения вручную, вы можете изменить соответствующую часть программы.

Надеюсь, это поможет вам! Если у вас возникнут еще вопросы, не стесняйтесь задавать.