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

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

10.05.2012, 13:12. Просмотров 893. Ответов 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.

http://www.cyberforum.ru/turbo-pascal/thread981480.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2012, 13:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Массив. Преобразовать так, чтобы в первой половине оказались элементы, стоявшие в четных позициях (Turbo Pascal):

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

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

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

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

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

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
Привет! Вот еще темы с решениями:

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

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

Переставить элементы массива Х(n) так, чтобы в начале этой последовательности оказались положительные числа
Требуется решенее! Задание: №1 Из массива A(20) создать массив В(10), где...

Преобразовать массив так, чтобы элементы, равные нулю, располагались после всех остальных
нуждаюсь в помощи...


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

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

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