Лучшие помощники
- Megamozg 2190 б
- Matalya1 1800 б
- DevAdmin 1695 б
- arkasha_bortnikov 860 б
- Dwayne_Johnson 845 б
6 декабря 2022 18:39
525
Напишите программу, которая заполняет массив из 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) Информация лучше воспринимается, если она снабжена картинкой б)Мозг воспринимает небольшие тексты и...
Дана строка. Подсчитать количество слов,заканчивающихся буквой и. Мышки ели шишки...
Дана строка. Подсчитать количество слов,заканчивающихся буквой и. Мышки ели шишки...
Помогите решить...
Все предметы