Лучшие помощники
- Megamozg 2170 б
- Matalya1 1800 б
- DevAdmin 1685 б
- arkasha_bortnikov 775 б
- Dwayne_Johnson 755 б
6 декабря 2022 18:39
451
Напишите программу, которая заполняет массив из 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
Остались вопросы?
Еще вопросы по категории Информатика
в одной из кодировок юникод каждый символ кодируется 16 битами Вова написал текст: (в нем нет лишних пробелов):бор, азот, гелий, натрий, водород-химич...
Добрый день! Нужно реализовать решение данной системы уравнений. Сама система и шаги решения приведены во вложении....
?Гбайт =?Мбайт = 2500 байт;Решите,пожалуйста...
Перечислите основные свойства алгоритма...
Система, обеспечивающая безопасность музейного экспоната, контролируется 29 датчиками. Запишите наименьшую разрядность двоичного кода, достаточную для...