Untitled

mail@pastecode.io avatar
unknown
plain_text
a month ago
1.5 kB
1
Indexable
Never
program ArrayOperations;
const
  размер = 10;
var
  A: array[1..размер] of integer;
  i, единицы, заданное_значение, Х, положительные: integer;
begin
  единицы := 0;
  положительные := 0;
  
  // 1. Определение количества элементов массива A, равных 1
  for i := 1 to размер do
  begin
    if A[i] = 1 then
      единицы := единицы + 1;
  end;
  writeln('Количество элементов массива A, равных 1: ', единицы);

  // 2. Определение количества элементов массива A, равных заданному значению X
  writeln('Введите значение Х для поиска:');
  readln(Х);
  заданное_значение := 0;
  for i := 1 to размер do
  begin
    if A[i] = Х then
      заданное_значение := заданное_значение + 1;
  end;
  writeln('Количество элементов массива A, равных ', Х, ': ', заданное_значение);

  // 3. Определение количества положительных элементов массива A
  for i := 1 to размер do
  begin
    if A[i] > 0 then
      положительные := положительные + 1;
  end;
  writeln('Количество положительных элементов массива A: ', положительные);
end.
Leave a Comment