Question

Имеется массив B(10) из целых чисел. Найти количество этого массива, больших 7 и кратных 4.Паскаль​

Answer 1

const

 n=10;

var

 b: array [1..n] of integer;

 count,sum,pr,i:integer;

begin

 count:=0; sum:=0; pr:=1;

 for i:=1 to n do

   begin

     b[i]:=random(101)-50;

     write(b[i]:4);

     if (b[i] > 7) and (b[i] mod 4 = 0) then

       begin

         inc(count);

         sum:=sum+b[i];

         pr:=pr*b[i];

       end;

   end;

 writeln;

 if count > 0 then

   begin

     writeln('Count: ',count);

     writeln('Summa: ',sum);

     writeln('Proizvedenie: ',pr);

   end

     else writeln('Takix net');

end.

Answer 2

Для нахождения количества элементов в массиве B(10), которые больше 7 и кратны 4, вы можете использовать следующий псевдокод на языке Паскаль:

pascalCopy code
program CountElements;
var
  B: array[1..10] of integer; // Объявляем массив из 10 целых чисел
  count: integer;
  i: integer;
begin
  count := 0; // Инициализируем счетчик

  // Заполняем массив B(10) значениями, например:
  // for i := 1 to 10 do
  //   B[i] := ...; // Здесь присваиваем значения элементам массива

  // Проходим по всем элементам массива и проверяем условие
  for i := 1 to 10 do
  begin
    if (B[i] > 7) and (B[i] mod 4 = 0) then
      count := count + 1; // Увеличиваем счетчик, если условие выполняется
  end;

  // Выводим количество подходящих элементов
  writeln('Количество элементов больше 7 и кратных 4: ', count);
end.

В этом примере мы создали массив B из 10 целых чисел и заполнили его значениями (вам нужно заменить "..."). Затем мы проходим по массиву, проверяя условие (B[i] > 7) и (B[i] mod 4 = 0), и увеличиваем счетчик count, если условие выполняется. В конце программы выводится количество элементов, соответствующих вашему запросу.