В одномерном массиве найти произведение ненулевых элементов ( Задать рандомно )

Знания

Информатика

1 ответ:

FedorB4 года назад

0 0

Program n1;
const n=10;
var a: array [1..n] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to n do a[i]:=random(10);
for i:=1 to n do if a[i]<>0 then p:=p*a[i];
writeln(p);
end.

Читайте также

Устройства ввода и вывода информации и их виды?

Адалят

Ввод- клавиатура вывода- монитор

0 0

4 года назад

Укажите наибольшее из чисел:А=36(в восьмой степени),В=1F(в шестнадцатой степени), С=27(в десятой степени),D=11110(во второй степ

Тимур263

Приведем все к (десятичной системе счисления)
A=30
B=31
C=27
D=30
Итого самым большим числом получается 31 под "B"

0 0

3 года назад

Напишите программу которая проверяет кратна ли тринадцати утроенная сумма двух произвольных чисел, введенных с клавиатуры СРОЧНО

Магистр вопросов [17]

12345678901234567890-97653

0 0

1 год назад

Помогите записать на языке с++ пожалуйста срочно

Семенчег

примерно так,dauble(формат переменных),math,sqrt(корень),math.Abs(модуль),math.pow (возведение в степень)

0 0

4 года назад

1.с клавиатуры вводится n действительных чисел. Определить сколько в данной последовательности нечетных отрицательных чисел. 2.С

Petrovich1900 [7]

Первая:
Uses crt;
Var arr:array[1..100] of integer;
n,a,c:integer;
Begin
Write('Сколько чисел вы хотите ввести?-');
Readln(n);
for a:=1 to n do
begin
Write('Введите ',a,' число:');
Readln(arr[a]);
end;c:=0;
For a:=1 to n do
Begin
if (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1;
end;
Writeln('В последовательности ',c,' нечетных отрицательных чисел.');
<span>end.

Вторая:
Uses crt;
Var arr:array[1..100] of integer;
a,b,c,m:integer;
begin
Write('Сколько чисел вы хотите ввести?-');
Readln(b);
For a:=1 to b do
begin
Write('Введите ',a, ' число:');
Readln(arr[a]);
end;
For a:=1 to b do
Begin
m:=arr[a];
For c:=1 to 2 do
begin
arr[a]:=m*arr[a];
end;end;
For a:=1 to b do
begin
Writeln('Куб ',a,' введенного вами числа равен:',arr[a]);
end;
<span>end.</span>

</span>

0 0

4 года назад