Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-5,5} и находит произведение ненулевых элементов.( фри Паскаль)

1 ответ

Посмотреть ответы

DevAdmin

1720

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.

Хороший ответ

8 декабря 2022 18:39

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Перевести 256 в десятичной степени в двоичную, восьмеличную, шеснадцатоличную, черыречную и семиричную.... После выполнения команды присваивания x:=x+y значение переменной х равно 3, а значение переменной у равно 5. Чему были равны значения переменных х и у... на каждом этаже в вашей школе должен быть план эвакуации при пожаре найдите и изучите его . какие обьекты представлены на этой схеме?... Приведите примеры: а) образной информационной модели б) знаковой информационной модели в) смешанной информациооной модели... Помогите с Информатикой (Язык Python)...