Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
235www
13.05.2021 14:27 •
Информатика
Дан массив из 20 целых чисел заполненный случайным образом от 10 до 99 . найти сумму десятков( пример: первых чисел из 19 и 23 найти сумму 1 и 2)
Показать ответ
Ответ:
Madina07152005
25.09.2020 20:53
Program sum1;
var a:array[1..20] of integer; k,i:integer;
begin
k:=0;
randomize;
for i:=1 to 20 do
begin
a[i]:=random(90)+10;
write(a[i],' ');
k:=k+ a[i] div 10;
end;
readln;
write('summa desyatkov = ',k);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
07Zarina1111
28.06.2022 11:24
Определите количество информации в своей фамилии при условии что для кодирования используется 32 символьный алфавит. фамилия коршунова...
roma2233p08v96
06.02.2023 19:16
Создать многослойный документ: (файл Рс.jpg), разместить на мониторе цветок (файл Viola.jpg), на котором сидит бабочка (файл Butterfly.jpg), а на клавиатуре расположить веточку...
Gaziz05
27.02.2022 13:11
Каждое из логических выражений A и B зависит от одного и того же набора из 7 переменных. В таблицах истинности обоих выражений нет ни одной совпадающей строки. Каково максимально...
bobrikov01
13.08.2021 14:01
Что понимают под информационными революциями? По какому принципу ЭВМ делятся на поколения? Предложите классификацию современных персональных компьютеров. Изобразите её в виде...
Privet206
23.06.2021 07:58
Выберите все числа меньшие 100010. 33211^42626^71101002^33E7^16...
7799de
22.07.2020 20:30
Напишите программу, которая решает линейное уравнение (ax + b = 0). Значение коэффициентов получаем от пользователя. Организуйтедиалог программы с пользователем. Вставьте код.Питон...
stella201
25.08.2022 14:27
Каждое из логических выражений A и B зависит от одного и того же набора из 6 переменных. В таблицах истинности обоих выражений в столбцах значений стоит ровно по 5 единиц в каждой...
mstasya04
11.02.2020 13:18
Составит линейную логическую программу, печатающую значение 1, если указанное высказывание является истинным, и 0 – в противном случае для : в заданном натуральном трехзначном...
vikavikt
11.02.2020 13:18
Двое играют в следующую игру. дано число 0. разрешается прибавить к текущему числу любое натуральное число от 1 до 9. выигрывает тот, кто получит число n . кто выигрывает при...
FreeSasha
26.05.2020 18:11
Дайте имена объектам 1)выросшим на грядке 2)проживающим в москве 3) трактором 4)посещающим детский сад 5)находящимся в школе...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..20] of integer; k,i:integer;
begin
k:=0;
randomize;
for i:=1 to 20 do
begin
a[i]:=random(90)+10;
write(a[i],' ');
k:=k+ a[i] div 10;
end;
readln;
write('summa desyatkov = ',k);
readln;
end.