сервис вопросов и ответовДан массив целых чисел B (15), найти произведения элементов массива кратных х.
10-11 класс|
|
Fainafaina
23 июля 2014 г., 7:53:14 (9 лет назад)
Nastr03
23 июля 2014 г., 8:55:15 (9 лет назад)
const
n = 15;
var
a:array[1..n] of integer;
i, x, pr:integer;
begin
for i := 1 to n do
begin
write('a[', i, '] = ');
readln(a[i]);
end;
write('x = '); readln(x);
writeln('Исходный массив:');
pr := 1;
for i := 1 to n do
begin
write(a[i], ' ');
if a[i] mod x = 0 then
pr := pr * a[i];
end;
writeln;
if pr = 1 then
writeln('Нет ни одного элемента кратного ', x)
else
writeln('Произведение элементов кратных ', x, ' = ', pr);
end.
Ответить
Другие вопросы из категории
Дан файл f, содержащий сведения о кубиках: размер каждого кубика (длина ребра в см), его цвет (красный, зеленый, желтый, синий) и материал (деревянный,
металлический, картонный). Найдите: количество кубиков каждого из перечисленных цветов и их суммарный объём;
Доска для игры «Бим-бом» - поле размером 8´4
клеточки. Какое минимальное количество бит потребуется для кодирования
координат одного поля такой доски?
c полным решением,пожалуйста
Читайте также
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Помогите решить задачу. Pascal
Дан массив
целых чисел К(15), найти и вывести на печать отрицательные элементы из
этого массива.
на языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел среди 10 элементов вещественного
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
Вы находитесь на странице вопроса "Дан массив целых чисел B (15), найти произведения элементов массива кратных х.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.