Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
SuperLexa555
15.07.2022 14:03 •
Другие предметы
Приведите примеры примет, поговорок о погоде. Объясните их происхождение.
Ответ:
theartik1
02.06.2020 17:15
Program vladimir37005;
const n=5;
var a:array[1..n] of integer;
i,min,k:integer;
begin
for i:=1 to n do begin
write('a[',i,']=');
read(a[i]);
end;
min:=a[1]; k:=1;
for i:=1 to n do
if (A[i] < min)
then begin
min:=A[i];
k:=i;
end;
for i:=1 to n do
if (a[i] < 0) and (a[i] > min)
then begin
min:=a[i];
k:=i;
end;
a[k]:=0;
for i:=1 to n do
write(a[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
Roflobara
12.06.2022 16:44
Что лучше . Нюхать соль или фен ?...
GOrzen32
06.10.2021 07:47
Վարժություն 22: Ո՞ր շարքերում մասային (վանկային) հապավում 6.Հ կա:1 բարձրահարկ, ափհանում անվանական ավազանը2. գործավար, հարցացուցակ, լուսատեխնիկա դասղեկ3. արևածաղիկ, զգեստապահարան...
87711077664ZE
04.03.2021 16:10
. Изучите таблицу. Определите вид данных, полученных в ходе эксперимента. Найдите среднее арифметическое значение, моду, медиану. Проверьте выборки на нормальность распределения....
nikoszahar
24.06.2020 01:16
Сделайте мини-сочинение на тему национальная культура Россия...
kirushaaa
05.03.2020 10:40
выполнение приемов с автоматом перед изучению строевых приёмах автомат становится на предохранителе это делается по команде отпустить или поднять.автомат из положения на ремень...
magnolyabz
28.10.2022 01:20
Agap tuzingCUyga vazifa. Qanday doʻkonlarni bilasiz? 3-4 ta...
АрінаЛеснічая
03.08.2021 13:52
Қазақ ертегілерінде кездесетін жылқы малы: Мысалы:Тайбурыл,Құлагер.тағы қандай жылқылар бар ?көмек керек...
sofyabelik
10.01.2022 20:54
1. Сделай вывод по проведённому исследованию,...
AkiraK666
18.03.2022 23:01
Що таке помилка під час гри у волейбл...
vikaolkhovskay
07.10.2022 15:09
Кто такой пророк Мухаммад...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
const n=5;
var a:array[1..n] of integer;
i,min,k:integer;
begin
for i:=1 to n do begin
write('a[',i,']=');
read(a[i]);
end;
min:=a[1]; k:=1;
for i:=1 to n do
if (A[i] < min)
then begin
min:=A[i];
k:=i;
end;
for i:=1 to n do
if (a[i] < 0) and (a[i] > min)
then begin
min:=a[i];
k:=i;
end;
a[k]:=0;
for i:=1 to n do
write(a[i],' ');
end.