Question

Дан массив А(6). Определите количество положительных элементов. Паскаль.

Answer 1

Var a:array[1..6] of integer;
k,i:integer;
begin
k:=0;
for i:=1 to 6 do
begin
writeln('Введите элемент массива');
readln(a[i]);
if a[i]>0 then k:=k+1;
end;
writeln('Количество положительных элементов : ',k);
end.

Answer 2

Конечно, я могу помочь с этим вопросом. Однако, уточните, что именно вы имеете в виду, когда говорите "массив А(6)"? Я предполагаю, что вы имеете в виду одномерный массив в Паскале, где A - это массив, а 6 - его размер, но уточните для точности. Если это так, то в Паскале вы можете определить и использовать массив следующим образом:

program CountPositiveElements;

var
  A: array[1..6] of Integer; // объявление массива

procedure InitializeArray;
var
  i: Integer;
begin
  // Инициализация массива значениями (пример)
  for i := 1 to 6 do
    A[i] := random(20) - 10; // заполнение массива случайными значениями от -10 до 10
end;

function CountPositiveElementsInArray: Integer;
var
  i, count: Integer;
begin
  count := 0;

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

CountPositiveElementsInArray := count;
end;

begin
  InitializeArray; // инициализация массива
  writeln('Элементы массива A:');
  
  // Вывод элементов массива
  for var i := 1 to 6 do
    write(A[i], ' ');

writeln; // переход на новую строку
  writeln('Количество положительных элементов в массиве A: ', CountPositiveElementsInArray);
end.

Программа выше создает массив `A` из 6 элементов, инициализирует его случайными значениями от -10 до 10, а затем подсчитывает и выводит количество положительных элементов в массиве.