сервис вопросов и ответовПомогите пожалуйста, очень срочно!
10-11 класс|
|
Дан массив А , содержащий N элементов .Найти произведение отрицательных элементов массива и их количество. Нарисовать блок-схему. Просчитать значения: N=10 , массив А={-2;0;10;-1;7;3;0}
00mahsa00
18 июля 2013 г., 8:11:37 (10 лет назад)
Bluetooh050120
18 июля 2013 г., 10:19:33 (10 лет назад)
const N=10;
var a:array [1..N] of integer;
i,k.p:integer;
begin cls;
k:=0; p:=1;
for i:=1 to N do begin
read(a[i]);
if a[i]<0 then begin
k:=k+1;
p:=p*a[i];
end;
end;
writeln('Произведение = ', p);
writeln('Кол-во = ', k);
end.
Ответить
Другие вопросы из категории
В детском саду было 52 ребёнка. Кажлый из них любит конфеты или мороженое. Половина детей любит конфеты, а 20 человек - конфеты и мороженое. Сколько детей
любит мороженое? Сколько детей любит только мороженое?
Одномерные массивы. 3 задачки))
1) Из элементов данного массива W[1..20] создать 2 новых массива, первый из которых содержит только положительные элементы, а второй только отрицательные.
2) Заполнить СЛУЧАЙНЫМИ числами в диапазоне от 1 до 10 два массива A[20] и B[20]. Найти и вывести на экран только те элементы этих массивов и их номера, значения которых попарно совпадают.
Например, если A[2]=B[2]=4, то на экран надо вывести: Номер-2, значение-4.
3) Заменить найденный минимальный элемент числом 100 и показать на экране массив с этой заменой.
составить программу для решения следующей задачи. из строки выбрать все цифры и сформировать другую строку
S=sdfg745tg2345dfg74
M=7452234574
Читайте также
Помогите, пожалуйста, очень срочно надо!!!!! Вычислите сумму чисел х и у, при х=А6(16-я система счисления) , у= 75 (8 система счисления). Результат
представьте в двоичной системе счисления.
Вычислите среднее арифметическое число положительных элементов массива A(N1), B(N2), C(N3)
Помогите пожалуйста очень срочно надо))), заранее спасибо)))
Вы находитесь на странице вопроса "Помогите пожалуйста, очень срочно!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.