Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Катерика2004
14.09.2021 18:10 •
Информатика
Составить программу вычисления произведения положительных и суммы отрицательных элементов массива a.проверить работу программы на заданном массиве a(11). на паскале
Показать ответ
Ответ:
ladygum78
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 оценок)
Популярные вопросы: Информатика
karinnka2002
24.08.2021 08:29
Встарой датской игре, положившей начало современной игре в кегли, в ряд вплотную друг к другу располагаются 13 деревянных кеглей. одним ударом шара можно сбить либо...
annaegoshina
26.04.2022 12:19
Какое количество информации несет в себе сообщение о том, что нужная вам программа находиться на одной из двух дискет?...
mishinevav
10.07.2022 15:24
Решу огэ информатика! 1) черепашке был дан для исполнения следующий алгоритм: повтори 5 [вперёд 80 направо 60]. какая фигура появится на экране? 1) правильный пятиугольник...
rasgramorysergio5775
22.02.2020 20:00
Якого типу мережа, що надає доступ до інтернету?...
Vindrosel
22.02.2020 20:00
20 укажите соответствие между классификацией и определением вирусов… 1) файловые вирусы 2) загрузочные вирусы 3) файлово-загрузочные 4) макровирусы 5) сетевые вирусы...
ПОМОГИТЕ1111121
22.02.2020 20:00
Сформировать и вывести на экран массив из 10 элементов, которые заданы датчиком случайных чисел на интервале [-56, 47]. найти произведение элементов с четными номерами....
fonaut21krit
04.08.2020 06:30
Бжб Ауа райы және климаттық өзгерістер көшпелілер бөлімі бойына өтініш кімде бар болса беріңіздерші көмектесіңіздерш...
Ляляляля109
20.04.2023 14:25
Вибірковий диктант (виписати стилістично забарвлені слова). Піти, словечко, обов`язок, морда, високий, насущний, довготелесий, лепетати, виконувати, мудрий, жебоніти,...
konovalovilya
20.04.2023 14:25
«Сказки про машинки». Основные признаки литературной сказки Прочитав только первый абзац, определи жанр прочитанного текста.Собрались машины вместе и начали думать,...
polinapiterskog
21.04.2023 17:47
Автобус первые 3.15 км пути проехал за 3,5 мин, а следующие 12 км – за 10 мин. Какова средняя скорость автобуса на каждом участке пути и на всем пути?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.