Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
илья1995
3 / 3 / 3
Регистрация: 17.10.2011
Сообщений: 169
1

Массив. Преобразовать так, чтобы в первой половине оказались элементы, стоявшие в четных позициях

10.05.2012, 13:12. Просмотров 911. Ответов 1
Метки нет (Все метки)

Как сделать чобы программа выводила второй массив с условием
условие:Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях а во второй половине элементы стоящие в нечетных позициях
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program prog;
uses crt;
var
  i: integer;
  sum: integer;
  a: array[1..300] of integer;
  n:byte;
begin
clrscr ;
repeat
{$I-}
writeln('vvedite n');
readln(n);
{$I+}
until ioresult=0 and(n>0);
 
  Randomize;
  WriteLn('array:');
  for i:= 1 to n do begin
    a[i]:= Random(10) - 5;
    Write(a[i], ' ');
  end;
 
  WriteLn;
 
  i:= 1;
  while (i < N) and (a[i] <> 0) do Inc(i);
 
  if a[i] <> 0 then WriteLn('result: not found')
  else begin
    while i <= N do begin
      Inc(sum, Abs(a[i]));
      Inc(i);
    end;
    WriteLn('result: ', sum);
  end;
 
  ReadLn;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2012, 13:12
Ответы с готовыми решениями:

Преобразовать массив, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях
Преобразовать массив K размером n таким образом ,чтобы в первой его половине...

Преобразовать массив, чтобы в первой его половине располагались все элементы, стоявшие в нечётных позициях
Дан одномерный массив А, состоящий из N целых чисел. Преобразовать массив таким...

Преобразовать массив К размером n таким образом, чтобы в первой его половине располагались элементы, стоявшие в нечетных позициях
Помогите с заданием. Преобразовать массив К размером n таким образом, чтобы в...

Дана матрица B размером 7х7. Преобразовать её так, чтобы минимальные элементы строк оказались на главной диагонали
Буду благодарен тем, кто поможет 2) Дана матрица B размером 7х7....

Превратить массив так, чтобы в первой половине располагались все элементы, стоявшие в нечетных позициях
Очень нужна помощь с лабораторной по массивам, как только не пробовал все или...

1
3a9Ic
141 / 129 / 113
Регистрация: 08.04.2012
Сообщений: 245
10.05.2012, 15:25 2
Получилось, лишь использовав 2 массива. Даже в одном цикле, почему-то, какие-то элементы перезатираются. Скопируешь, что нужно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Uses CRT;
Const n=10;
var a,b:array[1..n] of integer;
    i,m,k,j,l:integer;
begin
     ClrScr;
     for i:=1 to n do
     begin
          a[i]:=Random(21);
          write(' a[',i,']=',a[i]);
     end;
j:=0;
l:=Trunc(n/2);
writeln('');
for i:=1 to n do
    begin
     if (i mod 2=0) then
        begin
             inc(k);
             b[i-k]:=a[i];
        end;
 
     if odd(i) then
        begin
             inc(j);
             b[l+j]:=a[i];
        end;
     end;
for i:=1 to n do
    write(' b[',i,']=',b[i]);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2012, 15:25

Преобразовать матрицу так, чтобы элементы первой строки стали упорядочены по возрастанию
Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo...

Преобразовать массив так: в первой части элементы меньше среднего арифметического, а во второй части – элементы больше
Заполнить одномерный массив из N элементов случайными целыми числами....

Преобразовать матрицу p(4,4) таким оразом чтобы минимальные элементы строк оказались на побочной диагонали
Преобразовать матрицу p(4,4) таким оразом чтобы минимальные элементы строк...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru