0 / 0 / 0
Регистрация: 15.01.2009
Сообщений: 4
|
|
1 | |
Дан одномерный массив. Вставьте в него элемент L в позицию K.15.01.2009, 16:25. Показов 5318. Ответов 7
Метки нет (Все метки)
0
|
15.01.2009, 16:25 | |
Ответы с готовыми решениями:
7
Дан одномерный массив. Добавить в него элемент, вводимый с клавиатуры Дан одномерный массив. Удалить все отрицательные элементы из него Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого b[i]=a[1]+.+a[i] дан одномерный массив А. Поменять местами последний положите и второй элемент массива. Разделить все элементы с четными номерами на первый элемент. |
701 / 573 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
|
|
15.01.2009, 17:05 | 2 |
Код
var a : array[1..10] of integer; ... K := 3; L := 10; a[K] := L;
1
|
0 / 0 / 0
Регистрация: 15.01.2009
Сообщений: 4
|
|
15.01.2009, 22:13 [ТС] | 3 |
Код
program zad11; uses crt; var a: array[1..10] of integer; k,l,i, n: integer; begin clrscr; for i:=1 to 10 do begin read(a[i]); end; write('vvedite element '); readln(l); write('vvedite poziciu '); readln(k); a[k]:=l; for i:=1 to 10 do begin write(a[i], ' '); end; readkey; end. А в задание говориться типа вставить нужно, помогите плиз подкорректировать..
0
|
701 / 573 / 59
Регистрация: 18.11.2008
Сообщений: 2,147
|
|
15.01.2009, 23:37 | 4 |
Код
program zad11; uses crt; var a: array[1..[COLOR="Red"]11[/COLOR]] of integer; k,l,i, n: integer; begin clrscr; for i:=1 to 10 do begin read(a[i]); end; write('vvedite element '); readln(l); write('vvedite poziciu '); readln(k); [COLOR="Red"]for i:=10 downto k do a[i+1] := a[i];[/COLOR] a[k]:=l; for i:=1 to 10 do begin write(a[i], ' '); end; readkey; end.
1
|
0 / 0 / 0
Регистрация: 15.01.2009
Сообщений: 4
|
|
16.01.2009, 14:32 [ТС] | 5 |
такая проблема теперь, сегодня узнал, что нужно чтобы работала так:
было 10 чисел в начальном массиве потом при вставке числа, например нач. массив Код
1 2 3 4 5 6 7 8 9 10 позиция 3 конечн. резульат Код
1 2 9 3 4 5 6 7 8 9 Код
1 2 9 3 4 5 6 7 8 8 вот интересно где же здесь опять маленькая загвоздочка??
0
|
UNIX-way
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
|
|
16.01.2009, 15:32 | 6 |
Проверь ещё раз код, который компилишь. Возможно не сохранил файл. Я вставил код из процитированного мной поста в свой компилятор (TMT Pascal Lite) и всё правильно работает.
1
|
0 / 0 / 0
Регистрация: 15.01.2009
Сообщений: 4
|
|
16.01.2009, 15:53 [ТС] | 7 |
Я знаю что все работает идеально...
просто товарищ препод доё... до меня вот с этой строчкой Код
var a: array[1..11] of integer; Код
var a: array[1..10] of integer; если делаешь так как он хочет, то работоспособность оставляет желать лучшего..
0
|
UNIX-way
712 / 495 / 49
Регистрация: 15.01.2009
Сообщений: 1,720
|
||||||
16.01.2009, 17:55 | 8 | |||||
тогда сделай так:
А в твоём варианте работоспособность оставляет желать лучшего изза того, что происходит выход за границы массива.
1
|
16.01.2009, 17:55 | |
16.01.2009, 17:55 | |
Помогаю со студенческими работами здесь
8
Дан одномерный массив чисел. Удалить последний четный элемент. Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив из него каждый второй элемент Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C Дан массив C(N). Создать новый массив, заменив положительные элементы на максимальный элемент, отрицательные – на минимальный элемент, нулевые оставив Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |