Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Cardboard
26.02.2023 08:22 •
Информатика
Найти сумму индексов отрицательных элементов массива x[1..n]. !
Показать ответ
Ответ:
Дарья99911
06.10.2020 02:49
Const
n = 13;
Var
X:array[1..n] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to n do
Begin
X[i]:=random(2*n)-n;
Write(' ',X[i]);
if X[i]<0 then S:=S+i
End;
WriteLn;
WriteLn('S = ',S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Blumster12
22.09.2022 23:06
Даны числа от n1 до n2 (n1 и n2 вводятся с клавиатуры). найти и вывести на экран те числа из промежутка от n1 до n2, которые при делении на 7 в остатке 1, 2 или 5....
Brаun
01.01.2022 07:27
ответе , 1)возведи в квадрат 2)- 3 получить из 1 – 36 как можно сделать! ?...
Dzdze
02.11.2020 03:59
Как зашифровать слово калькулятор! ? методом который изобрёл юлий цезарь. кто знает, ! ато никак в голову не...
arisha20summer
12.03.2023 03:53
Сколько нужно воды сконденсировать при температуре кипения и охладить до 20 градусов,чтобы выделилось 659кдж теплоты?...
ArseniyZnanija
12.03.2023 03:53
Придумать 2 предложения со словом венчать совершенного и несовершенного вида...
Arestan
12.03.2023 03:53
Назовите 5 стран с наибольшей рождаемостью а)нигер б)швейцария в)швеция г)мали д)эфиопия е)нигерия ж)германия з)кения и)литва к)латвия...
dayanocha0080
12.03.2023 03:53
(x+5)²-16= ркшить. с полным действием....
hhhttt1520
12.03.2023 03:53
Длина волны света в вакууме 0,589 мкм. какова частота колебаний в такой волне (с=3·10⁸м/с)...
pankewitchkati
12.03.2023 03:53
Грозен враг за горами, а грозней за плечами. есть ли здесь синонимы?...
uctni
12.03.2023 03:53
Почему к подземным богатствам нужно относиться бережно...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 13;
Var
X:array[1..n] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив:');
For i:= 1 to n do
Begin
X[i]:=random(2*n)-n;
Write(' ',X[i]);
if X[i]<0 then S:=S+i
End;
WriteLn;
WriteLn('S = ',S);
End.