Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
6 декабря 2022 18:39
659
Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-5,5} и находит произведение ненулевых элементов.( фри Паскаль)
1
ответ
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
write('p=',p);
end.
i,p: integer;
begin
randomize;
p:=1;
for i:=1 to 10 do begin
a[i]:=random(11)-5;
write(a[i],' ');
if a[i]<>0 then p:=p*a[i];
end;
writeln;
write('p=',p);
end.
0
·
Хороший ответ
8 декабря 2022 18:39
Остались вопросы?
Еще вопросы по категории Информатика
Какими клавишами можно скопировать текст в буфер обмена? А) Ctrl + Ins Б) Shift + Del В) Alt + Ctrl Г) Shift + Ins...
Сделать таблицу в excel. Решить задачу У компании сократилась прибыль, из за чего было принято решение сократить заработные платы работников на 15 %,...
fоr i in rаngе( c, 42, d): рrint ( i, end=" " ) В результате работы этого фрагмента программы на эк...
растровый газетный рисунок состоит из точек четырех цветов: черного, темно-серого, светло-серого, белого. Сколько битов понадобится для двоичного коди...
Составить алгоритм, результатом которого будет вывод последовательности натуральных чисел от 1 до введенного пользователем числа Выполните алгоритм...