tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу, определяющую
Составьте программу, определяющую минимальное из 10 случайных чисел.
Ксюша10012007
3 08.08.2019 05:30
0
Ответы
alerokl2313
04.10.2020 04:24
var
i,n, min: :integer;
begin
randomize;
min:=999;
for i:=1 to 10 do
begin
n:= 1+ random(900);
if n < min then min := n;
end;
Writeln ('min=', min)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
artem28
25.05.2019 16:00
Количество символов в алфавите-512. 4 страницах 64 строки, 1 строке 128 символов. какой объём текста?...
Valeriiiss
25.05.2019 16:00
Определите частоту дискретизации , если известно , что объем стереоаудиофайла длительностью звучания 10сек. равен 314 кбайт, глубина кодирования 16 бит ....
DimaZOnLine
25.05.2019 16:00
Решить по информатике! буду признателен. 1. документ содержит точечную черно-белую фотографию 10x15 см. каждый квадратный сантиметр содержит 600 точек, каждая точка...
соня1581
22.07.2019 22:10
Паскаль признак существования треугольника: каждая его сторона должна быть меньше суммы двух других. написать программу, которая, получив с клавиатуры значения сторон...
даладно30раз
22.07.2019 22:10
Сколько различных слов длины 3 можно построить в алфавите мощности 5?...
ХЗшкин
28.09.2021 15:05
Обчислити область визначеня функції...
marychka0783
28.09.2021 15:09
Реши уравнение: −15−0,4e=10...
umeson
28.09.2021 15:16
какие из высказываний всегда истинны? Всегда ложны? a)p=(p^q); b)p^q=pVq; c)(p=q) V (p=q)...
dasha505dasha
28.09.2021 15:10
по русскому языку до завтра, буду благодарен!...
haka228
28.09.2021 15:14
6 Complète les phrases suivantes. Utilise « jouer » ou « faire ». 1. Monique, son copain et leurs amis 2. Françoise 3. Moi, je plusieurs années. depuis 4. Nous souvent...
Популярные вопросы
Туристы плыли 5 часов на плоту по реке со скоростью 6 км в час обратно...
1
Разгадать загадку. муртын сипап кун бойы бетын сусыз жцады.тысырды...
1
Гай, весна, гаївка, веснянка - синонім або споріднені слова?...
3
Назовите вещества и укажите заряды ионов, формулы которых: ca(oh)2,...
3
Когда пишеться has got а когда have got...
3
Прозвища князей северо-восточной руси: владимир ii- юрий- андрей-...
3
Напишите с решением . надо ! запишите смешанную дробь в виде неправильной...
1
1) в треугольнике авс аd-биссектриса, угол с равен 30 градусов, угол...
2
Выдели окончания у глаголов: любим,расцветает,отведу,вышел,слышу,вижу,лепят...
3
Дайте краткий ответ к вопросам 1.как попал робинзон на необитаемый...
3
i,n, min: :integer;
begin
randomize;
min:=999;
for i:=1 to 10 do
begin
n:= 1+ random(900);
if n < min then min := n;
end;
Writeln ('min=', min)
end.