Вычисления произведения элементов, которые меньше заданного числа Е - Pascal ABC
Формулировка задачи:
Всем привет,нужна помощь.
Написать программу которая вычисляет произведение элементов,которые меньше заданного числа
Решение задачи: «Вычисления произведения элементов, которые меньше заданного числа Е»
textual
Листинг программы
var a:array[1..20] of real;
n,i,k:integer;
t,p:real;
begin
randomize;
write('Размер массива от 1 до 20 n=');
readln(n);
writeln('Массив');
for i:=1 to n do
begin
a[i]:=5*random;
write(a[i]:4:1);
end;
writeln;
write('Ведите число t=');
readln(t);
p:=1;
k:=0;
for i:=1 to n do
if a[i]<t then
begin
k:=1;
p:=p*a[i];
end;
if k=0 then write('Нет чисел меньше ',t:0:1)
else write('Произведение чисел меньших ',t:0:1,'=',p:0:1)
end.
Объяснение кода листинга программы
В данном коде объявлены следующие переменные:
- a: массив из 20 элементов типа real.
- n, i, k: целые числа.
- t, p: вещественные числа. Сначала с помощью функции randomize и команды write задается размер массива от 1 до 20. Затем с помощью цикла for читается ввод пользователя и каждому элементу массива присваивается значение 5*random (случайное число от 0 до 49). Значения присвоенных элементов выводятся на экран. Затем с помощью команд readln и write задается вопрос пользователю о вводе числа t. После этого переменная p устанавливается равной 1, а переменная k устанавливается равной 0. Далее идет цикл for, который выполняется, пока есть элементы массива, меньшие числа t. Внутри цикла переменная k устанавливается равной 1, а переменная p устанавливается равной произведению текущего элемента массива и переменной p. После окончания внутреннего цикла проверяется значение переменной k. Если k равно 0, то выводится сообщение о том, что нет чисел меньше заданного числа t. В противном случае выводится сообщение о произведении чисел, меньших заданного числа t. Таким образом, данный код выполняет вычисления произведения элементов массива, которые меньше заданного числа t.