Pascal. составить программу нахождения произведения всех элементов массива a[1..20], содержащего случайные числа от 1 до 10
Darynaost
2
04.10.2019 19:00
14
Другие вопросы по теме Информатика
Нezнaйка
12.02.2020 22:46
Мамкинс
12.02.2020 22:48
89224717238
29.09.2019 19:30
Mrmr56
29.09.2019 19:30
Дарина15746
31.08.2019 15:30
поганаямолодешь
21.05.2020 20:31
ZevsGromov
21.05.2020 19:31
Анжеkf23
22.05.2020 19:54
Популярные вопросы
- В произвольно заданном массиве удалите все четные значения элементов....
3 - Возможно ли стать вегетарианцем? Впиши пропущенное слово:- это записи...
1 - Провідміняти 17525 словами...
2 - Задание на казахском, не баньте Переводить на русский не умею....
3 - лист бумаги расчерчен на клетки со стороной 1 см нарисуй по клеткам...
1 - Художній твір на тему як хомячки влаштували власну вечеринку ?...
3 - 11 учеников из класса ходят в шахматный кружок. А в музыкальный кружок...
2 - Сау адам мен ауру адамды салыстыру даю5 сөйлем...
3 - Решить уравнения (12 - x )•6,5=23,5 153 + 0,625y = 215,5...
1 - Линейное неравенство с одной переменной, содержащее переменную под...
3
//fpc
const
MAX = 20;
var
A: array [1 .. MAX] of byte;
i: byte;
mult: extended;
BEGIN
randomize;
mult := 1;
for i := 1 to MAX do
begin
A[i] := random(10) + 1;
mult := mult * A[i];
end;
write('Произведение эл. массива = ');
writeln(mult:0:0);
END.