Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Stasik1234
[144]
3 года назад
6
Составить программу вычисления произведения положительных и суммы отрицательных элементов массива A.проверить работу программы н
а заданном массиве A(11).
На паскале
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Kroket
[2.9K]
3 года назад
0
0
Program p1;
uses crt;
var a:array[1..11] of integer;
i,p,s:integer;
begin
for i:=1 to 11 do begin
a[i]:=random(30)-10;
write(a[i]:4);
end;
p:=1;
s:=0;
for i:=1 to 11 do begin
If a[i]>0 then begin
p:=p*a[i];
end;
If a[i]<0 then
s:=s+a[i];
end;
writeln;
writeln('Произведение :',p);
writeln('Сумма :',s);
end.
Отправить
Читайте также
Помогите сотавить программу Турбо Паскале.Дано целое число А. Если значение А>0, то необходимо увеличить его на единицу. Разо
глеб1241
Var a:longint;
begin
read(a);
if a>0 then
a:=a+1;
<span>end.
</span>
0
0
3 года назад
Ввести три целых числа x,y,z.Если хотя бы одно из них четное,то первому числу присвоить значение произведения этих чисел.( pasca
Павел Сорокатый
Смотри ответ в файле .txt
0
0
3 года назад
Этап подготовки текстового документа на котором он заносится во внешнюю память называется:
silence1
Сохранение, удачи))))
0
0
4 года назад
Составьте программу,находящую сумму квадратов первых N чисел.Используя цикл с предусловием, там for...do...else...then...
Светуля Александр...
For(i = 0; i < N; i++)
{
sum += a[i] * a[i];
}
0
0
3 года назад
В чем различия между Электронной и обычной почтой?
Natalia8 [12]
Элнктроная она приходит в види смс но компьютер либо телефон и.т д,а обычная почта приносят на дом письмо.
0
0
3 года назад
Смотрите также:
Придумайте 3 примера использования циклов в вашей жизни и опишите их. Опишите, что является телом цикла, сколько итераций требуе
12
·
1 ответ
Решите пункты а) и б) пожалуйста!! а) Задан линейный массив. Преобразовать его элементы по следующему правилу: Элементы, большие
11
·
1 ответ
Разберите программу,которая вычисляет сумму двух целых чисел a,b.Что будет выведено на экран в результате выполнения программы?
15
·
1 ответ
В MS Word набери слово клавиатура и сохрани его с названием text_1, указав тип файла Word 97 - 2003 Document (*.doc)
14
·
1 ответ
Составить блок-схему и написать программу для следующей задачи: даны 3 действительных числа. Выбрать те из них,которые принадлеж
11
·
1 ответ
Руслан закодировал своё имя по следующему алгоритму:сначала он выписал номер букв алфавита (а-1,б-2...) в своем имени друг за др
5
·
1 ответ
. В какой памяти компьютера храниться код знака:1) в оперативной памяти;2) во флеш-памяти;3) во внешней памяти;4) в кэш-памяти?
12
·
1 ответ
С клавиатуры вводиться трёхзначное число. Верно ли, что средняя цифра равна произведению крайних? 8 класс
15
·
1 ответ
В цехе трудятся рабочие трех специальностей – токари (Т), слесари (С) и фрезеровщики (Ф). Каждый рабочий имеет разряд не меньший
8
·
1 ответ
Какова максимальная длина имени файла?
6
·
2 ответа
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!