Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
6 декабря 2022 18:39
761
Напишите программу, которая заполняет массив из 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
Остались вопросы?
Еще вопросы по категории Информатика
Каким образом выражаются отношения между объектами? каким образом выражаются отношения между объектами? назовите имя отношения в каждом приведенном пр...
Напишите программу на паскаль Заполните массив случайными числами в интервале [0,5]. Введите число X и найдите все значения равные x...
Что будет выведено на экран после выполнения фрагмента программы? s = 'фоксфорд' s1 = 'крокодил' s = s[:4] + 'т' + s1[1:3] + 'т'; print(s)...
Цикл с известным числом повторений в языке Python записывается с помощью оператора for. Его общий вид: for <параметр> in range(k, n, m):...
Провести сложение, вычитание, умножение и деление двоичных чисел 1010₂ и 10₂ только с решение))буду благодарна...