Дан массив целых чисел найти количество элементов массива, значения которых больше заданного числа A и кратных

Дан массив целых чисел найти количество элементов массива, значения которых больше заданного числа A и кратных

  • Const n=10;
    var arr:array 1..n of integer;
    a,k,i:integer;
    begin
    Randomize;
    writeln(Исходный массив:);
    for i:=1 to n do
    begin
    arri:=random(51);
    write(arri:4);
    end;
    writeln;
    write(a = );
    readln(a);
    k:=0;
    for i:=1 to n do
    if (arri > a) and (arri mod 5=0) then k:=k+1;
    writeln(k = ,k);
    end.

    Пример:
    Исходный массив:
    23 25 41 15 3 48 33 24 10 35
    a = 12
    k = 3

  • Var b:array 1..100000 of integer;
    a,k,i,n:integer;
    begin
    k:=0;{обнуляем счтчик}
    readln(n);{вводим количество элементов в массиве}
    readln(a);{задам число а, с которым потом будем сравнивать}
    for i:=1 to n do{запускаем цикл}
    begin
    if (bi > a) and ((bi mod 5)=0) then{проверка на выполнение условий,заданных в задаче}
    k:=k+1;{при выполнении условия,увеличиваем счтчик на один}
    end;
    writeln(k);{выводим количество элементов, удовлетворивших условию задачи}
    end.
  • Внимание, только СЕГОДНЯ!
    Ссылка на основную публикацию