//PascalABC.Net
//(c) NaaMan
var
a : array of integer;
n, i : integer;
p : real;
begin
n := 5;
a := new integer[n];
a := ArrRandom(n, -10, 10);
p := 1;
for i:= 0 to n-1 do
if a[i] < 0 then p *= a[i];
println(a);
writeln('Произведение всех отрицательных равно ', p)
end.
Настройка на локальном компьютере пользователя:
в IE Сервис->Свойства обозревателя->Подключения ->Настойка LAN->поставить галку напротив "использоваеть прокси-серер для подключений LAN", в поле "адрес" прописать IP адрес или доменное имя, в поле "порт" указать порт, на котором работает proxy сервер-> OK
Держи,успехов:):):):):):)
1.
В задании скорее всего перепутано и нужно найти значение переменной D т.к. значение B не меняется и постоянно будет равно 18.
переменная D = 4, цикл выполнится 4 раза.
8. Нет алгоритама для решения
16. фрагмент схемы: программа находит произведение отрицательных элементов массива
с помощью условия Хi<0 определяется отрицательный элемент
само произведение вычисляется и хранится черех переменную R