Составить программу для вычисления массива - Pascal
Формулировка задачи:
Составить* программу для вычисления W= A*B/(C+2)
A - наибольший элемент массива;
B - произведение элементов массива с четными номерами;
C - количество элементов массива, больших D (вводится с клавиатуры).
Решение задачи: «Составить программу для вычисления массива»
textual
Листинг программы
uses
crt;
var
X: array[1..20] of integer;
i, max, proiz, d, col: integer;
begin
for i := 1 to 20 do
begin
x[i] := Random(10) + 1;
write(x[i] + ' ');
end;
writeln('vvedite d... ');
readln(d);
max := x[1];
proiz := 1;
col := 0;
for i := 1 to 20 do
begin
if x[i] > max then
max := x[i];
if i mod 2 = 0 then
proiz := proiz * x[i];
if x[i] > d then
col := col + 1;
end;
writeln('vash otvet: ', (max * proiz) / (col + 2));
end.
Объяснение кода листинга программы
В данном коде используется язык программирования Pascal. Программа вычисляет массив чисел от 1 до 20, используя генератор случайных чисел. Затем она запрашивает у пользователя максимальное значение из массива и вычисляет произведение этого значения на количество элементов массива, которые больше заданного значения. В конце программа выводит результат. Вот список действий в коде с номерами:
- Создание переменной X, которая представляет собой массив из 20 чисел типа Integer.
- Генерация случайных чисел от 1 до 10 и присваивание их элементам массива X.
- Вывод на экран каждого числа из массива X с пробелом между ними.
- Запрос у пользователя максимального значения из массива X.
- Обновление переменной max значением первого элемента массива X.
- Обновление переменной proiz значением 1.
- Обновление переменной col значением 0.
- Цикл, который проходит по каждому элементу массива X:
- Если текущий элемент больше max, то обновить max.
- Если текущий элемент четной цифры (т.е. i % 2 = 0), то умножить proiz на текущий элемент.
- Если текущий элемент больше d, то увеличить col на 1.
- Если текущий элемент меньше или равен d, то увеличить proiz.
- Вывод на экран результата вычисления (max * proiz) / (col + 2).