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

В линейный массив целых чисел на K-е место вставить элемент, равный разности двух указанных

10.06.2014, 13:29. Просмотров 960. Ответов 2
Метки нет (Все метки)

-
В линейный массив целых чисел на K-е место вставить элемент, равный разности двух указанных с клавиатуры элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2014, 13:29
Ответы с готовыми решениями:

В массив на 5-е место вставить элемент, равный сумме первых пяти элементов
Задачи по информатике. Турбо Паскаль. массивы. В массив на 5-е место вставить элемент, равный...

Вставить на k-е место массива элемент, равный наименьшему элементу массива
Здравствуйте исправьте пожалуйста задачу паскаль. Вот задача: Дан массив целых чисел размера N....

Массив: Удалить из массива элемент с номером k и вставить элемент, равный p, так, чтобы не нарушилась упорядоченность.
Дано: a:array of real;p:real;k:integer;(a<=a<=⋯<=a,0<k≤n). Удалить из a элемент с номером k (т.е....

В одномерный массив на k-е место поставить элемент, равный среднему арифметическому всех элементов
В линейный массив вещественных чисел на k-е место поставить элемент,равный среднему арифметическому...

Вставить в массив элемент, равный максимальному, справа от последнего отрицательного элемента
Задан массив целых чисел d1,...,d25. Вставить в него элемент, равный максимальному, справа от...

2
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,721
Записей в блоге: 1
10.06.2014, 13:36 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
Const nmax=100;
Var A:array[1..nmax] of integer;
    i,n,k:byte;
    m1,m2:integer;
Begin
    Repeat
     write('Введите размер массива 1<=N<=',nmax,': ');readln(n);
    Until n in [1..nmax];
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    writeln;
    Repeat
     write('K: ');readln(k);
    Until k in [1..n];
    write('Первое число: ');readln(m1);
    write('Второе число: ');readln(m2);
    inc(n);
    For i:=n downto k+1 do
     A[i]:=A[i-1];
    A[k]:=m1-m2;
    writeln('Преобразованный массив');
    For i:=1 to n do
     write(A[i]:4);
    readln;
End.
1
ocsoget
0 / 0 / 0
Регистрация: 28.05.2014
Сообщений: 30
10.06.2014, 13:37  [ТС] 3
Спасибо большое.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2014, 13:37

В линейный массив вещественных чисел на k-место
В линейный массив вещественных чисел на k-место вставить элемент,равный среднему арифметическому...

Дан линейный массив целых чисел ввести с клавиатуры не менее 10 элементов и посчитать сколько в нем различных чисел .
Дан линейный массив целых чисел ввести с клавиатуры не менее 10 элементов и посчитать сколько в...

Удалить из a(1)...a(n) элемент с номером К (т.е. a(k)) вставить элемент равный P, так чтобы не нарушалась упорядоченность
Даны действительные числа a(1)....a(n), P, натуральное К (a(1)&lt;=a(2)&lt;=.......&lt;=a(n)). Удалить из...


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

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

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