Question

Дан Одномерный Целочисленный Массив размером n. Вывести количество чисел кратных 7 и оканчивающихся на один. Программа - Pascal Большое Спасибо!

Answer 1

PascalВыделить код

1

2

3

4

5

6

7

8

9

Program Nailya;

var a: array [1..10] of integer;

c, n: integer;

begin

write('элементы массива? ');

for c := 1 to 10 do read(a[c]);

for c := 1 to 10 do if (a[c] mod 3) = 0 then inc(n);

write('кратных трем: ', n);

end.

мне нужно в строку

0

Answer 2

Конечно, вот пример программы на Pascal, которая считает количество чисел в одномерном целочисленном массиве размером n, которые кратны 7 и оканчиваются на один:

pascalCopy code
program CountNumbers;

const
  n = 10; // Замените это значение на желаемый размер массива

var
  arr: array[1..n] of integer;
  i, count: integer;

begin
  // Введите элементы массива arr
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
  end;

  // Инициализируем счетчик
  count := 0;

  // Подсчитываем числа, которые кратны 7 и оканчиваются на один
  for i := 1 to n do
  begin
    if (arr[i] mod 7 = 0) and (arr[i] mod 10 = 1) then
      count := count + 1;
  end;

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

В этой программе мы сначала вводим элементы массива, затем используем цикл для проверки каждого элемента на кратность 7 и окончание на один, увеличивая счетчик при каждом соответствии. В конце выводится количество таких чисел.