Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАМУ!!!!! Подсчитать количество цифр в массиве больше 5 4 2 6 7 8 6 + помогите решить задачу : var a:array(1...5) of integer; b:integer; Begin b:=3 a(1):=3; a(2):=4 a(3):=5 a(4):=2 a(5):=3 for (a(i)+1)>3 then b:=b+1 write(b) end.

Answer 1

Ответ:

uses crt;

const nmax=100;

var m:array[1..nmax] of integer;

   n,i,a,k:integer;

begin

randomize;

repeat

write('Размер массива до ',nmax,' n=');

read(n);

until n in [1..nmax];

writeln('Исходный массив:');

for i:=1 to n do

begin

 m[i]:=random(50)+1;

 write(m[i]:4);

end;

writeln;

write('Введите число для поиска a=');

read(a);

k:=0;

for i:=1 to n do

if(m[i]>a) and(m[i] mod 5=0)then k:=k+1;

writeln('Количество элементов больших ',a,' и кратных 5=',k);

end.

Answer 2

Конечно, помогу вам с написанием программы. Однако, ваш код содержит некоторые ошибки, и вы не предоставили язык программирования, на котором нужно написать решение. Я предположу, что вы используете Pascal, основываясь на ключевых словах из вашего кода.

Вот исправленная версия программы на Pascal для подсчета количества цифр в массиве, больших заданных значений:

pascalCopy code
program CountDigitsGreaterThan;
var
  a: array[1..5] of integer;
  b, i: integer;

begin
  b := 0;
  a[1] := 3;
  a[2] := 4;
  a[3] := 5;
  a[4] := 2;
  a[5] := 3;

  for i := 1 to 5 do
  begin
    if a[i] > 3 then
      b := b + 1;
  end;

  writeln('Количество цифр в массиве больше 3: ', b);
end.

В этой программе мы инициализируем массив a, а затем используем цикл for для перебора всех его элементов. Если значение элемента a[i] больше 3, то увеличиваем счетчик b на 1. В конце программы выводим результат подсчета.

Теперь, если запустите эту программу, она выведет количество цифр в массиве a, которые больше 3. Вы можете легко адаптировать программу, если хотите сравнивать с другими значениями.