Сформировать с помощью датчика случайных чисел массив E[8]. Вывести его на экран. Подсчитать сумму положительных и произведение отрицательных элементов этого массива.
Примечание:
Мдя... короче я сам решил, держите.
program massiv2;
var e:array[1..8] of integer;
i,sum,pr:integer;
begin
pr:=1;
for i:= 1 to 8 do
begin
e[i]:=random(100)-50;
if e[i] > 0 then sum:=sum+e[i];
if e[i] < 0 then pr:=pr*e[i];
end;
writeln('summa=',sum);
writeln('proizvedenie=',pr);
writeln('Press any key to exit...');
readln;
end.
Примечание:
azlab.org
"короче я сам решил, держите."
"Я не понимаю, как можно быть настолько крутым?" (с) Батхед
"Я тоже не понимаю, как можно быть настолько тупым?" (с) Сергей Луконин. Ибо Ваше высказывание неуместно.
Примечание:
azlab.org, проблема в том, что правильный ответ не дали, но я уже дошел до него сам. Никаких "какой умный" я и не ждал! Если ты еб...н, то это твои проблемы! Почему тут все какие-то долбонутые? Почему нет никакого уважения к участникам? Почему на RusFAQ.ru за этим следят строго, а здесь беспредел??
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.