Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
6 декабря 2022 18:39
619
Напишите программу, которая заполняет массив из 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
Остались вопросы?
Еще вопросы по категории Информатика
Исполнитель Черепаха, перемещаясь на экране компьютера, оставляет след в виде линии. Какое число нужно записать вместо и в алгоритме: Повтори 7 [Впере...
Автоматическое устройство осуществило перекодировку информационного сообщения на русском языке, первоначально записанного в 16-битном коде Unicode, в...
Монитор позволяет получать на экране 65.536 цветов. Какой объём памяти в байтах занимает 1 пиксель?...
Ниже приведена программа, записанная на пяти языках программирования. Бейсик Python DIM s, t AS INTEGER INPUT s INPUT t IF s < 5 OR t > 5 TH...
1. Что называется архивацией? 2. Для чего предназначена архивация? 3. Какой файл называется архивным? 4. Что называется разархивацией? 5. Какая информ...