Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
NickolaiDress
29.12.2021 08:40 •
Информатика
Составить программу вычисления произведения положительных и суммы отрицательных элементов массива a.проверить работу программы на заданном массиве a(11). на паскале
Показать ответ
Ответ:
Dashyliavvv
08.10.2020 14:23
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,0
(0 оценок)
Популярные вопросы: Информатика
20yanushkevich04
06.10.2020 19:39
с таблицей по информатике...
deryabina92
16.12.2020 02:37
1. Единица скорости передачи информации модемом а) битб) бодв) байтг) Кбайт2. Услуги, предоставляемые компьютерной сетью, зависят от:а) типа подключенияб) характеристик...
Fanapav
25.01.2023 08:13
1.Що таке шаблон та формуляр-зразок документа? 2. Класифікація документів? 3. Розміщення реквізитів в документі та вимоги до них. 4. Вимоги до формату паперу та берегів...
жанель93
13.09.2020 00:35
А) Розгалуження називається вкладеним у цикл, якщо воно(1) тіла...(2)...
dashko4etckowa
28.05.2021 07:50
1.Составьте программу закрашивания буквы Т , размерами четыре клетки по вертикали и три по горизонтали. Начальное положение Робота - где-то в центре поля....
ранго1
27.07.2021 13:52
3. Информацию, данную в таблице, разделите на группы внешних и внутренних составляющих информационных технологий:тетрадь | телефон | компьютеррезинкарисунокУЧИТЬслышатьОКНОсигналнамагничивать...
LoveSmile7890
30.03.2021 18:53
4. Что называется тактовой частотой процессора: a) количество тактов обработки данных, которую процессор производит за 1 секунду;b) максимальная длина двоичного кода, который...
Kseniaa26
02.02.2021 01:56
Кассир по продажам билетов в кинотеатр...
ZevsGromov
15.03.2021 16:31
На языке програмирования ПИТОН!! По заданным координатам точек А и В, вычислите длину отрезка АВ. Подсказка: Расстояние d между точками А (хa, уa) и В (хb, уb) выражается...
Ekirakosyan12
13.06.2020 19:52
1. установите верность или ложность утверждений («да» или «нет») и занесите ответы таблицу: 1.1. для конфуцианства характерно негативное отношение к земной жизни, рассмотрение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.