Напишите программу, которая заполняет массив из 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

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

Найти нужный

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

В файле 17.txt содержится последовательность целых чисел. Элементы последовательности могут принимать целые значения от –10 000 до 10 000 включительно... C++. Шифр Виженера. Шифратор написала, а дешифратор не могу собразить. #include «stdafx.h» #include «pch.h» #include #include #include #incl... Отметьте формы мышления... Дайте определение системы счисления. Назовите и охарактеризуйте свойства системы счисления. На 1 часть ответила, а вот насчет свойств систем счисления... Напишите программу, которая выводит на экран таблицу степеней двойки( от нулевой до десятой)...