сервис вопросов и ответовДан массив вещественных чисел x(x1?x2,..,xn).Найти произведение положительных элементов массива и подсчитать их число.
10-11 класс|
|
Kerimova11
18 авг. 2013 г., 21:58:38 (10 лет назад)
Nastushamir
19 авг. 2013 г., 0:06:30 (10 лет назад)
const n=5;
var
x:array[1..n]of real;
i,k:integer;
p:real;
begin
p:=1;
for i:=1 to n do
begin
readln(x[i]);
if x[i]>0 then
begin
p:=p*x[i];
k:=k+1;
end;
end;
writeln('p=',p);
writeln('k=',k);
end.
Ответить
Другие вопросы из категории
Какая тут ошибка, посмотрите, пожалуйста program znacheniya uglov; uses crt; var x: integer; begin writeln('wedite znachenie gradusnoi mery ugla');
read(x); if a=180 then writeln('razvernutyi') else writeln ('ne razvernutyi'); end.
Ребята помогите пожалуйста перевести этот код с паскаля на с++.
var a, b, c : integer;
помогите решить задание
ответ будет 9
мне решение надо, я разобраться не могу
Читайте также
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
1.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы:
a) массив состоял из 15 элементов вещественного типа;
b) значения элементов массива должны меняться в интервале от 0 до 5;
c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма
Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (10);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.
1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
Вы находитесь на странице вопроса "Дан массив вещественных чисел x(x1?x2,..,xn).Найти произведение положительных элементов массива и подсчитать их число.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.