Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Игорь981
29.08.2020 06:03 •
Информатика
если знаете дальше ответы на вопросы которые вы выполняли
👇
Увидеть ответ
Открыть все ответы
Ответ:
mklslajh
29.08.2020
Turbo Pascal
USES CRT;
VAR A:array[1..100] of integer;
i,n,summa:integer;
BEGIN
CLRSCR;
Randomize;
{Проверяем на размер массива, чтобы не превышал 100}
Repeat
Writeln('Введите размер массива до 100');
Readln(n);
Until n<=100;
{Заполняем массив случайными числами от -50 до 100}
For i:=1 to n do
begin
A[i]:=-50+Random(100);
Write(A[i],' ');
end;
summa:=0;
{Находим отрицательные элементы массива и складываем}
For i:=1 to n do
if A[i]<0 then summa:=summa+A[i];
Writeln;
Writeln('Сумма отрицательных элементов массива = ',summa);
READLN;
END.
4,6
(59 оценок)
Ответ:
orxan4176
29.08.2020
Var
x:double;
begin
x:=102;
while x<=999 do begin Writeln(x,' ',exp(ln(x)/3)); x:=x+3 end;
end.
Результат выполнения программы:
102 4.67232872835526
105 4.71769398031653
108 4.7622031559046
111 4.80589553370533
114 4.84880758583988
117 4.89097324650875
120 4.93242414866094
123 4.97318983326859
126 5.01329793496458
129 5.05277434720856
132 5.09164336965949
135 5.12992784003009
138 5.16764925236362
141 5.2048278633942
144 5.24148278841779
147 5.27763208790408
150 5.31329284591305
. . .
960 9.86484829732188
963 9.87511349546425
966 9.8853573964768
969 9.89558011047944
972 9.90578174668388
975 9.91596241340387
978 9.92612221806536
981 9.93626126721644
984 9.94637966653718
987 9.95647752084936
990 9.96655493412597
993 9.97661200950066
996 9.98664884927706
999 9.99666555493786
4,8
(72 оценок)
Это интересно:
В
Взаимоотношения
03.09.2021
Как встречаться с юристом: советы и рекомендации...
К
Кулинария-и-гостеприимство
05.06.2023
Шаурма – быстрый и вкусный способ насытиться!...
К
Компьютеры-и-электроника
19.03.2022
Изучайте мир с Google Earth: Советы по установке на ваш компьютер...
К
Компьютеры-и-электроника
01.05.2021
Как найти все 7 Orichalcum+ в Kingdom Hearts 2...
К
Компьютеры-и-электроника
03.09.2021
11 способов, как экономить ресурсы в игре Clash of Clans...
К
Кулинария-и-гостеприимство
15.05.2021
Как заготовить розмарин: собираем и храним ароматные травы впрок...
П
Праздники-и-традиции
28.09.2020
8 советов о том, как купить подарки на Рождество, если у вас немного денег...
К
Компьютеры-и-электроника
10.05.2023
Как отправить код с помощью Telegram...
З
Здоровье
28.09.2022
Как прекратить повторение вертиго: причины, симптомы и методы лечения...
И
Искусство-и-развлечения
19.02.2023
Как прочесть все книги из списка литературы на лето...
Новые ответы от MOGZ: Информатика
Pots150204
01.04.2022
Перевести. и если можете, то с объяснением, ! 265 байт= 30 килобайт= 98 мегабай= 6 килобайт= 28 бит= 2428 терабайт=...
Yury28
12.09.2021
Нужно сделать 3 письменно в тетрадь. за 15 .напомню, только 3 !...
lspkorvo
04.02.2020
Составить в тетради блок-схему и программу к : ввести 2 числа. если их произведение отрицательно, умножить его на 8 и вывести на экран, в противном случае увеличить его в 1,5 раза...
KrisKris9999
31.05.2020
Различие между цифровым фотоаппаратом и гиперспектрометром...
anuri1
24.09.2020
20 , в вашей . : даны вещественные числа a,b,c (а не равно 0). выяснить, имеет ли уравнение a*x*x+b*x+c=0 вещественные корни. заранее безмерно ....
solomia113
21.09.2021
Задача Язык C# Выполнить с оператора If else Даны числа X,Y,Z. Наименьшее из них увеличить в 2 раза, наибольшее уменьшить в 2 раза...
ylmor228l
07.11.2020
Для логических типа полей в Access выделяется память объёмом ... : Выберите один ответ: a. 1 байт b. 1 бит c. 1 килобайт d. 8 бит...
диана2471
24.05.2020
Что означает запись: a += b == c на питоне? новичку......
никнейм85
22.09.2022
Дан массив Z(10). Вставить число Р между теми числами, которые образуют пару с одинаковыми знаками. Cделать блок схему и все...
ЭмиРоуз5
19.06.2020
надо Текст занимает полных 7 страниц. На каждой странице размещается 42 строки по 70 символов в строке. Какой объёмом оперативной памяти ( в Килобайтах) займёт этот текст? ОКРУГЛИТЕ...
MOGZ ответил
Твірна основа слова намалювати...
«Мораль даёт общие принципы поведения, оставляя без внимания конкретные обстоятельства»....
Що означає вислів Август отримав Рим цегельним, а залишим його мармуровим ? А...
No 20 Прочитайте текст. Соотнесите слова, из перечня (возможно изменение окончаний)...
У електролітинній ванні виділиться 6,16 г олова . Скільки часу тривав електроліз...
Яку механічну роботу виконує котик коли тягне сардельку Маса сардельки 50 г протягнув...
Как по вашему мнению,цель влияет на поведение человека?...
Задания Олимпиады по математике ...
Төмендегі жай сөйлемдерді оқып,олардан құрмалас сөйлем жасаңдар....
Лист до письменника Роберт Шеклі я на уроц !...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
USES CRT;
VAR A:array[1..100] of integer;
i,n,summa:integer;
BEGIN
CLRSCR;
Randomize;
{Проверяем на размер массива, чтобы не превышал 100}
Repeat
Writeln('Введите размер массива до 100');
Readln(n);
Until n<=100;
{Заполняем массив случайными числами от -50 до 100}
For i:=1 to n do
begin
A[i]:=-50+Random(100);
Write(A[i],' ');
end;
summa:=0;
{Находим отрицательные элементы массива и складываем}
For i:=1 to n do
if A[i]<0 then summa:=summa+A[i];
Writeln;
Writeln('Сумма отрицательных элементов массива = ',summa);
READLN;
END.