Вопрос по информатике:
PASCAL СРОЧНОООО
Дан массив N<100 целых чисел. Вывести все четные элементы массива по возрастанию.
Пожаловаться
- 10.03.2018 12:09
- Информатика
- remove_red_eye 14957
- thumb_up 50
Ответы и объяснения 2
Program ryazantsev;
var i,k,t,n,min: integer;
a: array[1..100] of integer;
begin
readln(n); //Считываем кол-во элементов массива
for i:=1 to n do a[i]:=Random(100); //Заполнение массива случайными числами
for i:=1 to n do begin
min:=i;
for k:=i to n do if a[k]
t:=a[i];
a[i]:=a[min];
a[min]:=t
end
end; //алгоритм пузырьковой сортировки
for i:=1 to n do if a[i] mod 2 = 0 then writeln(a[i])
end.
var i,k,t,n,min: integer;
a: array[1..100] of integer;
begin
readln(n); //Считываем кол-во элементов массива
for i:=1 to n do a[i]:=Random(100); //Заполнение массива случайными числами
for i:=1 to n do begin
min:=i;
for k:=i to n do if a[k]
t:=a[i];
a[i]:=a[min];
a[min]:=t
end
end; //алгоритм пузырьковой сортировки
for i:=1 to n do if a[i] mod 2 = 0 then writeln(a[i])
end.
Пожаловаться
- 11.03.2018 06:07
- thumb_up 7
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Where(t->t.IsEven).OrderBy(t->t).Println
end.
Пример
n= 20
15 36 27 -4 47 -20 42 -3 -27 32 15 -38 25 -2 -5 -29 12 2 -2 13
-38 -20 -4 -2 -2 2 12 32 36 42
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Where(t->t.IsEven).OrderBy(t->t).Println
end.
Пример
n= 20
15 36 27 -4 47 -20 42 -3 -27 32 15 -38 25 -2 -5 -29 12 2 -2 13
-38 -20 -4 -2 -2 2 12 32 36 42
Пожаловаться
- 12.03.2018 10:04
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы