Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 1 / 0
Регистрация: 19.03.2010
Сообщений: 55
1

В одномерный массив добавить элемент в позицию К

04.04.2011, 20:55. Просмотров 1073. Ответов 4
Метки нет (Все метки)

Прошу помочь с решением задачи:

В одномерный массив добавить элемент в позицию К, равный значению максимального элемента, если кол-во элементов массива четное.


Зарание благодарю)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.04.2011, 20:55
Ответы с готовыми решениями:

Дан одномерный массив. Вставьте в него элемент L в позицию K.
задача. Дан одномерный массив. Вставьте в него элемент L в позицию K. Плиз помогите.

Дан одномерный массив. Вставьте в него элемент L в позицию K
Написать программу, которая вставляет в массив элемент L в позицию K.

В одномерный массив вставьте некоторый элемент в заднюю позицию
Составить программу на массивы 1. Даны массив V и число x; определить число элементов массива V не...

Одномерный массив: вставить нулевой элемент в пятую позицию
вставить нулевой элемент в пятую позицию.при этом все элементы начиная с пятого должны сдвинуться...

4
последний из ворон
111 / 111 / 63
Регистрация: 02.02.2011
Сообщений: 334
04.04.2011, 21:11 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
var a:array[1..100] of integer; i,n,k,max:integer;
begin randomize;
      write('input n=');
      readln(n);
      for i:=1 to n do
      begin write(' a',i,'=');
            readln(a[i]);
            if ((i=1)or(max<a[i])) then begin max:=a[i]; k:=i; end;
      end;
      writeln;
      if (n mod 2 = 0) then
      begin inc(n);
         write('input k=');
         readln(k);
         for i:=n downto k do
         a[i+1]:=a[i];
         a[k]:=max;
      end;
      writeln;
      for i:=1 to n+1 do
      write(' a',i,'=',a[i]);
      readln;
end.
0
К.О.
533 / 498 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
04.04.2011, 21:20 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
var
  a: array[1..100] of integer;
  i,n,k,max: integer;
begin
  readln(n);
  for i:=1 to n do
    begin
      a[i]:=round(random(60)+10);
      write(a[i],' ');
    end;
  writeln;
  if odd(n)=false then
    begin
      readln(k);
      max:=a[1];
      for i:=1 to n do
        if a[i]> max then max:=a[i];
      for i:=n+1 downto k+1 do
        a[i]:=a[i-1];
      a[k]:=max;
      for i:=1 to n+1 do
        write(a[i],' ');
      end
      else writeln('количество элементов нечетное');
  readln;
end.
Добавлено через 8 минут

Не по теме:

the_crow, учиителЪ х)

0
последний из ворон
111 / 111 / 63
Регистрация: 02.02.2011
Сообщений: 334
04.04.2011, 21:25 4
в 8 строке:
Цитата Сообщение от the_crow Посмотреть сообщение
if ((i=1)or(max<a[i])) then begin max:=a[i]; k:=i; end;
надо так:
Pascal
1
if ((i=1)or(max<a[i])) then max:=a[i];
p.s. что-то я зачем-то лишнее считал..=)
0
1 / 1 / 0
Регистрация: 19.03.2010
Сообщений: 55
04.04.2011, 23:58  [ТС] 5
Спасибо Вам огромное!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.04.2011, 23:58

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

Добавить элемент в одномерный массив
Как в одномерный массив в определенное место добавить определенный элемент(который ввели с...

С++ \ Одномерный массив: Добавить элемент с номером К.
Здравствуйте: нужно помоч переделать. Она полностью рабочая. Но без процедур и вся в МЕЙНЕ,...

Сформировать одномерный массив. Удалить из него элемент с заданным номером, добавить элемент с заданным номеро
Сформировать одномерный массив. Удалить из него элемент с заданным номером, добавить элемент с...

Дан одномерный массив. Добавить в него элемент, вводимый с клавиатуры
Дан одномерный массив В(N). Добавить в него элемент b, вводимый с клавиатуры. сдавать завтра ....


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

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

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