Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
6 декабря 2022 18:39
729
Напишите программу, которая заполняет массив из 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
Остались вопросы?
Еще вопросы по категории Информатика
В каком году придумали первый мобильный телефон?...
Построить действительную матрицу A(i, j), где i=1,...,3; j=1,...,5. Первая строка матрицы задаётся формулой A(1,j)=2j+3, вторая строка формулой A(i,j)...
Положение курсора в слове с ошибкой отмечено чертой: ИГРР| Чтобы исправить ошибку следует нажать клавишу: А)<Delete> Б)<Backspace> В)&l...
19:Помогите пожайлуста!! йди правильный ответ. Мама купила Семёну коробку карандашей. Он не очень хорошо различает цвета, поэтому названия цветов за...
Помогите пож)) 1) Почему при уменьшении и увеличении растрового изображения ухудшается его качество? 2) В чем состоят основные различия между формата...