Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
диана2470
04.12.2022 07:24 •
Информатика
Дан массив, состоящий из 10 элементов. заполнить массив случайными числами от -100 до 100 и подсчитать сумму отрицательных элементов массива. !
Показать ответ
Ответ:
ksuz
15.07.2020 13:22
Const N=10;
var A:array[1..N] of integer;
i,sum:integer;
begin
for i:=1 to N do begin
A[i]:=random(-100,100);
write(A[i],' ');
end;
for i:=1 to N do
if A[i]<0 then sum:=sum+A[i];
write(' ',sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
HanNazbi
13.04.2020 17:28
5. записать в десятичной системе счисления целое число, если дан его дополнительный код: а) 0101100111000110; б) 1111111011011010. 7. рассчитайте время звучания моноаудиофайла, если...
yaroslavat05
13.04.2020 17:28
Програма для знаходження середнього арифметичного 7 чисел в мові програмування паскаль. дуже потрібно....
00Рахат00
20.07.2020 15:42
Составить алгоритм нахождения наименьшего из трех значений....
vilnur345
05.10.2022 11:52
Слова паскаль, операционная система, фортан, текстовый процессор, медицинские экспертные системы, драйвер, программы для создания презентаций, архиватор, ассемблер, антивирус, браузер,...
spfpspfpspdps
07.05.2020 20:38
Https://edu.skysmart.ru/student/huritebige нужны ответы по этим заданиям...
nikitos15012
03.05.2022 18:25
Информацию, данную в таблице, разделите на группы внешних и внутренних составляющих информационных технологий:-( СОРРИ ЗА НЕПОЛНУЮ ФОТКУ, НЕ ПОМЕСТИЛАСЬ :-(...
aptyp4ik228
26.11.2021 12:35
Дан алгоритм в виде блок-схемы. Найди A,B,C,D , если изначально: A=5,B=7,C=8,D=20...
kucm14
11.11.2021 09:09
№1 в одной из кодировок кои-8 каждый символ кодируется 8 битами. определите информационный объём следующего предложения в данной кодировке. и уносят меня в звенящую снежную даль....
Анастасия02052005
11.11.2021 09:09
Как их сделать вместе чтобы работало uses crt; var a,i: byte; s: real; begin clrscr; for i: =1 to 4 do begin writeln( vvod ); readln(a); if a mod 5=0 then writeln( число ,a, кратно...
vasiaska234
30.12.2020 14:42
Все надо 5 предложение . с словами светло ярко подруга школа и розовая...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var A:array[1..N] of integer;
i,sum:integer;
begin
for i:=1 to N do begin
A[i]:=random(-100,100);
write(A[i],' ');
end;
for i:=1 to N do
if A[i]<0 then sum:=sum+A[i];
write(' ',sum);
end.