Составить программу в паскале, которая определяет, сколько раз число 10 встречается среди элементов одномерного массива А(12), состоящего из целых чисел и заполненного с клавиатуры.
program CountTensInArray; var A: array[1..12] of integer; i, countTens: integer; begin countTens := 0; // Ввод элементов массива с клавиатуры writeln('Введите элементы массива A(12):'); for i := 1 to 12 do begin readln(A[i]); if A[i] = 10 then countTens := countTens + 1; end; // Определение количества вхождений числа 10 writeln('Число 10 встречается в массиве ', countTens, ' раз.'); readln; end.
Программа сначала запрашивает у пользователя ввод элементов одномерного массива А(12). Затем программа проходит по каждому элементу массива и проверяет, равен ли он числу 10. Если условие выполняется, увеличиваем счетчик countTens на 1. После прохождения по всем элементам массива выводится количество встреч числа 10 в массиве.
var
A: array[1..12] of integer;
i, countTens: integer;
begin
countTens := 0;
// Ввод элементов массива с клавиатуры
writeln('Введите элементы массива A(12):');
for i := 1 to 12 do
begin
readln(A[i]);
if A[i] = 10 then
countTens := countTens + 1;
end;
// Определение количества вхождений числа 10
writeln('Число 10 встречается в массиве ', countTens, ' раз.');
readln;
end.
Программа сначала запрашивает у пользователя ввод элементов одномерного массива А(12). Затем программа проходит по каждому элементу массива и проверяет, равен ли он числу 10. Если условие выполняется, увеличиваем счетчик countTens на 1. После прохождения по всем элементам массива выводится количество встреч числа 10 в массиве.