Дан массив целых чисел из 12 элементов. Поменять местами первый отрицательный с первым положительным.
10-11 класс
|
var
A:array[1..12] of integer;
i,FLAG, INDMAX, INDMIN,k:integer;
begin
randomize;
Writeln('Исходный массив:');
for i:=1 to 12 do
begin
A[i]:=random(20)-10;
writeln('A[',i,']=',A[i]);
end;
i:=0;
FLAG:=1;
While FLAG<>0 do
begin
i:=i+1;
if A[i]<0 then
begin
INDMIN:=i;
FLAG:=0;
end;
end;
i:=0;
FLAG:=1;
While FLAG<>0 do
begin
i:=i+1;
if A[i]>0 then
begin
INDMAX:=i;
FLAG:=0;
end;
end;
K:=A[INDMAX]; //Замена
A[INDMAX]:=A[INDMIN];
A[INDMIN]:=K;
writeln('Конечный массив: ');
for i:=1 to 12 do
writeln('A[',i,']=',A[i]);
end.
Другие вопросы из категории
помогите тупому воробушку :с
значений элементов одномерного массива.
входа в систему, а после введения пользователем пароля и нажатия кнопки ОК
выводит окно со значком критической ошибки и сообщением о том, что был введён
неправильный пароль.
Группа школьников пришла на стадион, на котором 8 беговых
дорожек. Тренер сообщил, что группа будет бегать на дорожке номер 5.
Сколько информации получили школьники из этого сообщения?
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.