сервис вопросов и ответовПомогите сделать в Pascal
5-9 класс|
|
Найти минимальный и максимальный элементы массива и все элементы расположенные между ними заменить на 0...в промежутке(10;50)
Gfdtk55
02 окт. 2015 г., 17:23:34 (8 лет назад)
IrinaAl
02 окт. 2015 г., 19:42:51 (8 лет назад)
program gt;
var n,i,j,min,max,l,h:integer;
a:array[1..1000]of integer;
begin
readln(n);
l:=1;h:=1;
max:=-maxint; min:=maxint;
for i:=1 to n do
begin
read(a[i]);
if(a[i]>max)then begin
l:=i; max:=a[i];
end;
if(a[i]<min)then begin
h:=i; min:=a[i];
end;
end;
for i:=1 to n do
if(((i>h)and(i<l))or((i<h)and(i>l)))and(a[i]>10)and(a[i]<50)then
write(0,' ') else write(a[i],' ');
end.
Ответить
Другие вопросы из категории
Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от минус20 до 20.Подсчитайте в этом массиве количество
отрицательных элементов.
Читайте также
Помогите сделать по информатике задание :
Закончите определения .
а) Информатика - это наука ______________________________________________________________________________________________________________________________________________________________
б) География - это наука _____________________________________________________________________________________________________________________________________________________________
в) Фонетика - это раздел науки о _________________________________________________________________________________________________________________________________________________________
г) Ботаника - это раздел науки о __________________________________________________________________________________________________________________________________________________________
д) Имя существительное - это самостоятельная часть речи , __________________________________________________________________________________________________________________________________________________________
е) Глагол - это самостоятельная часть речи , __________________________________________________________________________________________________________________________________________________________
ж) Земледельцы - это люди , _________________________________________________________________________________________________________________________________________________________
з) Животноводы - это люди , __________________________________________________________________________________________________________________________________________________________
и) Тяжёлая промышленность - это _________________________________________________________________________________________________________________________________________________________
к) Лёгкая промышленность - это _________________________________________________________________________________________________________________________________________________________
Мне обязательно сделать под буквами д , е , ж ( желательно ) , з , и , к . Сделаете хотябы под этими буквами , обязательно поставлю на лучший ( если найду конечно ) !
Помогите сделать самостоялку
Номер 12,13,14,15,16 помогите!!! Даю 40 баллов
Выпишите подходящие по смыслу слова.
Чтобы рубить дрова, нужен ТОПОР
А чтобы полить огород -ЛЕЙКА
Быбаки сделали во льду ...........? и стали ловить рыбу.
Самый колючий зверь в лесу - это ЕЖ
Помогите сделать РЫБАКИ СДЕЛАЛИ ВО ЛЬДУ .........?
Помогите сделать задачу в Excel по теме работа с различными функциями От железнодорожной станции по направлению к дачному
поселку (расстояние между ними 2000) движется пешеход со скоростью 5 км/ч. Одновременно с ним в
том же направлении бежит собака, со скоростью 10 км/ч. Поскольку собака
бежит быстрее, то, добежав до дома и
радостно известив о приближении хозяина, она разворачивается и бежит к
человеку, а от него обратно к дому т.д. Какой суммарный путь пробежит собака за
время, пока человек дойдет до дома?
Вы находитесь на странице вопроса "Помогите сделать в Pascal", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.