В массиве E(8) найдите произведение отрицательных
10-11 класс
|
элементов, стоящих на нечётных местах.
Много "но",типа какие элементы , целые или вещественные,что будет если такое число одно.Я сделал для целых.Если число одно оно и будет вывадится.
на каком языке???я так понимаю 8 это кол-во элементов?
На языке паскаль. Да,8 количество элементов)
Другие вопросы из категории
Читайте также
1.В одномерном массиве перенести элемент, стоящий на первом месте в конец массива.
2.вывести на печать номера точек, лежащих в круге радиусом r. Координаты точек заданы массивами (x1,x2,...,x10), (y1,y2,...,y10).
3.В одномерном массиве найти сумму положительных, произведение отрицательных, количество четных элементов.
4.Дан массив, состоящий из 50 элементов, найти предпоследний нечетнный элемент.
Найти произведение отрицательных элементов указанной строки двумерного массива размером 4*5 целых чисел.
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.
стоящих на четных местах. Вывести на экран эти элементы и их произведение.
положительных элементов массива P1 и P2. Определить. что больше по абсолютной величине Р1 или Р2. Вариант №2