Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Rigina1984
29.03.2021 03:02 •
Информатика
Составить программу вычисления произведения положительных и суммы отрицательных элементов массива a.проверить работу программы на заданном массиве a(11). на паскале
Показать ответ
Ответ:
hat345oxt288
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 оценок)
Популярные вопросы: Информатика
Diana2004250
21.04.2021 18:02
Составить программу вычисления функций y=f(x) для заданного значения аргумента х, где f(x)=tg 2/3 x^2-ln|3x-5|+8.3....
andreyylysp08r6o
06.07.2020 05:52
Практическая работа: на составление алгоритма программы...
andreymarshev0p0b1aa
15.06.2020 22:38
Заполнить массив из 15 элементов случайным образом в виде неубывающей последовательности....
Миша75040406
13.02.2023 16:00
Подсчитать сумму 50 случайных чисел из диапазона от 0 до 200...
irinatsotok7
22.11.2022 02:07
Плз! и запиши правильный ответ а& g+a& -g информатика 8класс...
лисичка009
15.11.2022 13:12
500dpi 1=2,54см=500 9см=x куб 9см на 2 кто решит тому достанется офигенное колво...
sbux44
19.03.2023 07:48
Дано четырехзначное число найти число десятков и сотен в нем...
1nVictUS
14.06.2021 02:11
Кумир составьте программу, которая находит и записывает в файл все делители целого числа, введенного с экрана....
123456789785
10.10.2021 01:13
Кумир. составьте программу, которая находит количество нулей в целом десятичном числе, введенном с экрана. результат выводится на экран....
Апётр
16.01.2020 08:03
По некоторым измерениям петя сделал вывод, что сообщение на древнем пергаменте состоит из 856 символов. выяснил ещё, что 1 символ весит ровно 5 битов, но он не может...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.