tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вмассиве случайных чисел найти
Вмассиве случайных чисел найти сумму элементов,значения которых меньше 15 напишите программу
Diana4441
1 21.09.2019 15:50
1
Ответы
Picmout
08.10.2020 07:27
Var i,sum: Integer;
a:array[1..10] of Integer;
begin
sum:=0;
Randomize();
for i:=1 to 10 do
begin
a[i]:=random(20);
if(a[i]<15) then sum:=sum +a[i];
write(' ',a[i]);
end;
writeln();
writeln('сумма элементов < 15= ',sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Катерина26121
18.08.2020 18:39
https://clemsonsportstalk.com/forums/4/topics/8453/replies/8332 https://clemsonsportstalk.com/forums/4/topics/8454/replies/8333 https://clemsonsportstalk.com/forums/4/topics/8455/replies/8334...
artem705
18.08.2020 20:10
1.замени восьмеричную цифру 2 тремя двоичными цифрами (триадой) 2.Замени тетраду из двоичных цифр 1110 соответствующей шестнадцатеричной цифрой!...
sv5080
08.06.2019 01:21
Внекотрых смартфонах устанавливают лотки под 2 sim карты, без sd в интернете я находил адаптеры только для sim карты, но не было для sd к примеру, в смартфоне redmi...
орхидея26
19.05.2020 18:38
Напишите программу, которая выводит случайные числа от 10 до 20 и подсчитывает чётные числа...
eliseyivanov9
25.01.2021 16:51
If және switch оператырларын салыстыру....
barash8
25.01.2021 16:51
Гироскопиялық датчик қанша режимде жұмыс істейді...
ZlataPaw
25.01.2021 16:50
Деректер типтері, 1-сабақ4, 56, айнымалысының типін анықта....
gagag590
25.01.2021 16:49
Выведите текст hello world используя переменную(python)...
olegovnao27
01.12.2021 16:07
Зделайте верхнию упражние нпишите атветы на казаском...
martin37
01.12.2021 16:12
Миша написал сообщение в месенджере своей бабушке. Бабушка , мама с папой собираются на море , а меня брать не хотят. Можно я приеду к тебе? Мощность компьютера алфавита...
Популярные вопросы
На смотре войска острова лжецов и рыцарей вождь построил всех...
2
Чем отличается убранство мечети по сравнению с христианским храмом?...
2
Прочитайте разделите текст на предложнния 4 класс дидактический...
2
Как думаешь о какой метели здесь говорится подул ветер. закачались...
1
Соединены 2 металла fe и cd в среде h2so4 . какой из них будет...
2
Запишите все правильные дроби со знаменателе 15, у которых числитель...
1
:запишите старший разряд результата действия и цифру этого разряда:...
2
Вглавных подгруппах двух групп находятся только металлы.какие...
2
Почему появляются углубления в ступенях древних каменных лестниц?...
1
Что обозначает выражение стайка лисичек?...
1
a:array[1..10] of Integer;
begin
sum:=0;
Randomize();
for i:=1 to 10 do
begin
a[i]:=random(20);
if(a[i]<15) then sum:=sum +a[i];
write(' ',a[i]);
end;
writeln();
writeln('сумма элементов < 15= ',sum);
end.