Дата публикации:
Купить или узнать подробнее
Купить или узнать подробнее
Помогите, пожалуйста, написать программу (желательно на паскале) с помощью массива.
Помогите, пожалуйста, написать программу (желательно на паскале) с помощью массива.
Вот пример программы на паскале, которая решает данную задачу:
program CountOddMultiplesOfThree;
const
MAX_NUMBERS = 1000;
MAX_VALUE = 30000;
var
numbers: array[1..MAX_NUMBERS] of Integer;
length, count: Integer;
i, num: Integer;
begin
length := 0;
count := 0;
repeat
readln(num);
if (num <> 0) and (length < MAX_NUMBERS) then
begin
length := length + 1;
numbers[length] := num;
end;
until num = 0;
for i := 1 to length do
begin
if (numbers[i] mod 2 <> 0) and (numbers[i] mod 3 = 0) then
count := count + 1;
end;
writeln('Length of sequence: ', length);
writeln('Count of odd multiples of three: ', count);
end.
Программа использует массив numbers
для хранения введенных чисел. Она считывает числа до тех пор, пока не встретит число 0 или не достигнет максимального количества чисел. Затем она проходит по массиву и проверяет каждое число на нечетность и кратность 3. Если число удовлетворяет этим условиям, счетчик count
увеличивается на 1. В конце программа выводит длину последовательности и количество нечетных чисел, кратных 3.