найти произведение всех элементов массива целых чисел меньших 0 размер массива равен-10
5-9 класс
|
Program n1;
Uses Crt;
var a:array[1..10] of integer;
s,i: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(11)-5;
writeln(a[i]:4);
end;
s:=1;
for i:=1 to 10 do
if (a[i]<0) then s:=s*a[i];
writeln('Proizvedenie vseh otricat chisel: ', s);
end.
Другие вопросы из категории
классификаций.1)Волк,лиса,медведь,заяц)2)Платье,пиджак,рубашка,брюки.3)Кино,пальто,радио,шоссе.4)Береза,тополь,рябина,липа.4)Лиственница,кедр,ель,сосна.5)Яблоня,груша,слива,Вишня.6)Молоко,кефир,творог,сметана.7)Молоток,клещи,топор,пила.8)Смородина,крыжовник,малина.9)Корабль,колокол,колесо,корова.10)Печь,речь,дочь,ночь.11)Луч,меч,плащ,овощ.12)Нуль,сто,пятьдесят,тысяча.13)Минута,секунда,час,сутки.13)Февраль,май,август,сентябрь.14)май,август,октябрь,декабрь.15)1,2,5,9.16)10,25,40,4117)1,2,11,29(Спасибо)
весь экран монитора, в кодировке КОИ-8
Читайте также
массива осуществить случайными числами от 50 до 100
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
меньше 3. На экран выводятся исходные значения и результаты вычеслений.
среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.
1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.