Вопрос по информатике:
Зaполнить мaccив Х[1..39] целыми cлучaйными чиcлaми из [-15;37] и вывеcти его нa экрaн, выделив цветом чиcлa, меньше 30. Cколько тaких чиcел? Провеcти cортировку этого мaccивa по возрacтaнию и вывеcти результaт нa экрaн. Cколько в этом мaccиве чиcел, нaчинaющихcя c двойки
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.09.2015 19:34
- Информатика
- remove_red_eye 1491
- thumb_up 43
Ответы и объяснения 1
Const
N = 39;
Var
X:array[1..N] of integer;
i,j,k:integer;
Begin
Randomize;
ClrScr;
k:=0;
WriteLn('Исходный массив: ');
For i:= 1 to N do
Begin
X[i]:=random(53)-15;
if X[i]<30 then
Begin
TextColor(12);
k:=k+1;
End
else TextColor(7);
Write(X[i],' ');
End;
WriteLn;
WriteLn;
TextColor(7);
WriteLn('Числа, меня тридцати: ',k);
WriteLn;
WriteLn('Упорядоченный массив: ');
For i:= 1 to N do
For j:= 1 to N-1 do
if X[j]>X[j+1] then
Begin
k:=X[j+1];
X[j+1]:=X[j];
X[j]:=k;
End;
k:=0;
For i:= 1 to N do
Begin
Write(X[i],' ');
j:=X[i];
While j div 10 0 do
j:=j div 10;
if (j = 2)or(j = -2) then
k:=k+1;
End;
WriteLn;
WriteLn;
WriteLn('Числа, начинающиеся с двойки: ',k);
ReadLn;
End.
- 02.09.2015 15:50
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.