Вопрос по информатике:
ПОМОГИТЕ,ПОЖАЛУЙСТА,СРОЧНО НУЖНО!!! Задачи по Паскалю: 1.Задать одномерный массив из 10 чисел, которые полученные случайным образом.
1) Поменять местами левую и правую половину.
2) Элементы массива больше 10 заменить на 100.
3) Удалить из массива максимальный элемент, а перед минимальным элементом вставить 0.
2.Задать одномерный массив из 10 чисел, которые полученные случайным образом.
1) Вывести на экран только нечётные элементы.
2) Элементы массива, стоящие на чётных позициях заменить на 0.
3) Удалить из массива последний нечетный элемент, а перед 3 элементом вставить 100.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.03.2015 03:46
- Информатика
- remove_red_eye 17719
- thumb_up 45
Ответы и объяснения 1
const
n=10;
var
a:array[1..n] of integer;
i,k,t,imin,imax:integer;
begin
randomize; { инициализация датчика пчевдослучайных чисел }
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
a[i]:=random(20); { интервал [0;19] }
Write(a[i]:4)
end;
Writeln;
{ 1. меняем местами правую и левую половины }
Writeln('*** 1 ***');
k:=n div 2;
for i:=1 to k do begin
t:=a[i]; a[i]:=a[i+k]; a[i+k]:=t
end;
for i:=1 to n do Write(a[i]:4);
Writeln;
{ 2. Элементы массива, большие 10, заменяем на 100 }
for i:=1 to k do
if a[i]>10 then a[i]:=100;
Writeln('*** 2 ***');
for i:=1 to n do Write(a[i]:4);
Writeln;
{ 3. Удаляем максимальный элемент, вставляем 0 перед минимальным }
{ замороченная задача ! }
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
a[i]:=random(50)+1; { интервал [1;49] }
Write(a[i]:4)
end;
Writeln; Writeln('*** 3 ***');
imin:=1; imax:=1;
for i:=2 to n do
if a[i]>a[imax] then imax:=i
else
if a[i] if imin < imax then begin { минимальный встречается раньше максимального }
{ подвигаем вправо на 1 все элементы от imin и до imax }
for i:=imax-1 downto imin do a[i+1]:=a[i];
a[imin]:=0 { вставляем 0 в позицию imin }
end
else begin { минимальный встречается позже максимального }
{ подвигаем влево на 1 элементы от imax до imin -1 }
for i:=imax to imin-1 do a[i]:=a[i+1];
a[imin-1]:=0; { вставляем 0 в позицию перед imin }
end;
for i:=1 to n do Write(a[i]:4);
Writeln
end.
Пример
*** Исходный массив ***
14 1 11 7 14 8 12 8 1 14
*** 1 ***
8 12 8 1 14 14 1 11 7 14
*** 2 ***
8 100 8 1 100 14 1 11 7 14
*** Исходный массив ***
24 36 25 4 42 42 16 39 45 44
*** 3 ***
24 36 25 0 4 42 42 16 39 44
Задание 2
const
n=10;
var
a:array[1..n] of integer;
i:integer;
begin
randomize; { инициализация датчика пчевдослучайных чисел }
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
a[i]:=random(20); { интервал [0;19] }
Write(a[i]:4)
end;
Writeln;
{ 1. выводим нечетные элементы }
Writeln('*** 1 ***');
for i:=1 to n do
if a[i] mod 2 0 then Write(a[i]:4);
Writeln;
{ 2. Элементы на четных позициях обнуляем }
i:=2;
while i<=n do begin
a[i]:=0;
i:=i+2
end;
Writeln('*** 2 ***');
for i:=1 to n do Write(a[i]:4);
Writeln
end.
Пример
*** Исходный массив ***
12 0 14 8 13 17 3 1 12 17
*** 1 ***
13 17 3 1 17
*** 2 ***
12 0 14 0 13 0 3 0 12 0
Замечание:
Третью подзадачу решить в такой постановке невозможно.
В самом деле, требуется удалить последний нечетный элемент, а перед третьим элементом вставить ноль. Что делать, если этим последним нечетным окажется третий?
- 18.03.2015 08:24
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.