Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
6 декабря 2022 18:39
735
Напишите программу, которая заполняет массив из 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
Остались вопросы?
Еще вопросы по категории Информатика
какова мощность алфавита, с помощью которого записано сообщение, содержащее 4096 символов, если объем сообщения составляет 1,5 Кбайт?...
Какой логический элемент изображён на рисунке? дизъюнктор конъюнктор инвертор импликатор...
Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел. Pascal...
Какой объём видеопамяти I необходимо для хранения графического изображения, занимающего весь экран монитора с разрешением 800*600 k, если глубина цвет...
С помощью органов чувств человек непрерывно получает информацию . В чём особенность учёбы в школе с точки зрения получения информации?...