tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу,заменяющую
Составьте программу,заменяющую каждый из элементов t[i] массива t(n) минимальным среди первых i элементов данного массива.
myasovkavlad
1 23.07.2019 04:00
0
Ответы
rega1122
13.08.2020 21:21
Pascal
var t:array [1..100] of integer;
j,i,n,m:integer;
begin
read(n);
for i:=1 to n do
read(t[i]);
m:=t[1];
for i:=2 to n do
if t[i]<m then m:=t[i];
read(i);
for j:=1 to i do
t[j]:=m;
for j:=1 to n do
write(t[j], ' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lianabalkoewa
18.05.2019 11:10
Замените отрицательные элементы массива на положительные....
ChocolateMilk1
18.05.2019 11:10
Какой объем видеопамяти в кбайтах нужен для хранения изображения размером 640х250 пикселей и использующего 16-цветную палитру?...
Kategio123
18.05.2019 11:10
Кто разбирается в pascal abc на циклы с параметром 1.дано вещественное число a и целое число n ( 0). вывести a в степени n: an = a•a••a (числа a перемножаются n раз). 2.дано вещественное...
khvvt1
24.12.2020 13:06
Даны сложные высказывания. Запишите их с знаков логических операций а) писатели могут или поэтому или прозаиком б) Наверно,что сегодня понедельник ...
lerastorogeva
16.03.2021 10:15
Определите являются ли следующие предложения высказываниями? 1) Москва-столица России 2)Число 27 является простым 3)Волга впадает в Каспийское море 4)Давай пойдем гулять 5)Спой песню...
vlasov200133
10.06.2019 18:10
Напишите программу, в результате выполнения которой первое введённое число уменьшается в три раза, если оно больше, чем третье, а третье становится разностью третьего и второго,...
maratizmailov
16.11.2020 23:19
Какой объем информации содержит сообщение студента о том, что он сдал зачёт?...
Fentis001
16.11.2020 23:18
Сообщение, записанное буквами из 64-х символьного алфавита, содержит 720 символов. Какой объем информации оно несет...
жасулан16
16.11.2020 23:18
ответить на данный вопрос еще...
korol23
16.11.2020 23:18
Записать и упростить выражение для объединения областей на диаграмме 1+7+8...
Популярные вопросы
Установите соответствие основные расходы < расходы непосредственно связанные с...
1
Суд определил особенности соучастия в совершении преступления «вождение автомобиля...
1
Контроллинг, ориентированный на поиск, сохранение и расширение потенциала развития...
3
В соответствии с английской уголовно-правовой доктриной уменьшенную ответственность...
1
Вложения предприятий в ценные бумаги, в уставные капиталы других предприятий -...
3
Обеспеченность средствами для выполнения производственного процесса, своевременность...
2
Оценка объекта с учетом ожидаемого его улучшения в результате предполагаемой модернизации...
3
Совокупность правил, которые регулируют порядок осуществления инвестиционной деятельности...
1
Если пожертвование поступило в благотворительный фонд и срок его использования...
3
Какими видами может быть представлена собственная деятельность организаций третьего...
2
var t:array [1..100] of integer;
j,i,n,m:integer;
begin
read(n);
for i:=1 to n do
read(t[i]);
m:=t[1];
for i:=2 to n do
if t[i]<m then m:=t[i];
read(i);
for j:=1 to i do
t[j]:=m;
for j:=1 to n do
write(t[j], ' ');
end.