Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-5,5} и находит произведение ненулевых элементов.( фри паскаль)
Skynet14
3
06.12.2019 16:02
10
Другие вопросы по теме Информатика
Khajiit999
20.05.2019 06:00
alisakholodova9
20.05.2020 17:17
Юрий210404
20.05.2020 17:16
pasatnuk
03.02.2021 15:40
yhaaa1212
03.02.2021 15:41
Mokysya
03.02.2021 15:41
Vladlena151215
22.05.2019 23:20
averkin07
01.02.2021 11:21
TheFoxySmile
01.02.2021 11:21
Популярные вопросы
- Ex 5 - подставить предлоги с 3-го упражнения ex 6...
2 - 2. Фото, відео та кінострічки належать до: А) речових джерел;В) писемних...
1 - Представьте в виде диаграммы как изменилось рождаемость в России? если...
1 - Дано дві мимобіжні прямі a і b. Точки А і B лежать на прямій а, точки...
2 - 10 КЛАСС ! Підраховано, що потреба жирах у світовому масштабі задовольняється...
2 - 1,7x+17=289 А) 17Б)170В)160 ...
2 - як урегульовувалися законодавчі основи шлюбу? які відносини були між членами...
3 - . Найдите площадь ромба и периметр, если его диагонали равны 4 и 5 см....
3 - Найдите число,17%,которого больше своего 14% на 27...
2 - Исследовать сходимость ряда...
3
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.