Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 895 б
- Dwayne_Johnson 865 б
6 декабря 2022 18:39
606
Напишите программу, которая заполняет массив из 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
Остались вопросы?
Еще вопросы по категории Информатика
. Файл Утёс.doc хранится на жестком диске С: в каталоге ЛИРИКА, который является подкаталогом каталога ПОЭЗИЯ. Запишите полное имя файла...
Что вы знаете о следующих видах видов кодирования Напишите маленький рассказ. Семафорная Азбука алфавит брайля...
Срочно!!! Помогите решить контрольную,нужно к каждому заданию составить таблицу...
1. Объясните, почему следующие предложения не являются высказывания ми 1) какого цвета этот дом? 2) Число х не превосходит единицы. 3) 4x+ 3. 4)...
Какие три закона робототехники? Пожалуйста, срочно надо...