0 / 0 / 0
Регистрация: 20.01.2014
Сообщений: 13
1

Ввести массив, состоящий из 10 элементов с клавиатуры. Удалить все элементы после 3-его элемента массива

20.01.2014, 23:04. Показов 4956. Ответов 3
Метки нет (Все метки)

Ввести массив, состоящий из 10 элементов с клавиатуры. Удалить все элементы после 3-его элемента массива.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2014, 23:04
Ответы с готовыми решениями:

Задан массив A, состоящий из 10 целых элементов. Вывести все элементы массива, которые идут после первого максимального элемента
Задан массив A, состоящий из 10 целых элементов. Вывести все элементы массива, которые идут после...

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

Массив. Удалить все положительные элементы, имеющие четный порядковый номер, идущие после минимального элемента массива
11. В массиве A=(a1, а2, ..., аn) удалить все положительные элементы, имеющие четный порядковый...

Дан одномерный массив А, состоящий из N элементов. Перенести в начало массива все четные элементы, а в конец массива - все нечетные
Помогите, пожалуйста. >>"Дан одномерный массив А, состоящий из N элементов. Сколько значений...

3
For i:=0 to 150 do
225 / 105 / 108
Регистрация: 05.01.2012
Сообщений: 286
21.01.2014, 01:28 2
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
27
uses crt;
var
a:array[1..10] of integer;
i:byte;
begin
 
for i:=1 to 10 do
  begin
  writeln('введите ',i,' элемент массива');
  readln(a[i]);
  end;
clrscr;
writeln('Ваш массив');
 
for i:=1 to 10 do
write(a[i],' ');
 
writeln('Удалим все после 3');
 
for i:=4 to 10 do
  a[i]:=0;
  
writeln('Новый массив');  
for i:=1 to 10 do
write(a[i],' ');
 
end.
0
Модератор
Эксперт по математике/физике
5002 / 3836 / 1317
Регистрация: 30.07.2012
Сообщений: 11,263
02.02.2014, 23:10 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var x:array[1..10] of real;
    i:byte;
BEGIN
for i:=1 to 10 do
  begin
    write('Input X[',i,'] = ');
    readln(x[i]);
  end;
for i:=1 to 10 do
  write(x[i]:6:1);
writeln;
for i:=4 to 10 do
  x[i]:=0;
for i:=1 to 10 do
  write(x[i]:6:1);
writeln;
for i:=1 to 3 do
  write(x[i]:6:1);
writeln;
readln
END.
0
158 / 137 / 106
Регистрация: 18.05.2013
Сообщений: 289
02.02.2014, 23:56 4
(Перенесено из Pascal ABC.NET)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a: array of integer;
 
begin
  SetLength(a, 10);
  writeln('Введите массив:');
  for var i := 0 to a.Length - 1 do
    read(a[i]);
  SetLength(a, 3);
  writeln('Обработанный массив:');
  for var i := 0 to a.Length - 1 do
    write(a[i], ' ');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2014, 23:56
Помогаю со студенческими работами здесь

Дан одномерный массив А, состоящий из N элементов. Перенести в начало массива все четные элементы, а в конец массива - все нечетные
Помогите, пожалуйста. >>"Дан одномерный массив А, состоящий из N элементов. Перенести в начало...

Ввести массив А. В массив В перенести все элементы массива А, стоящие правее максимального элемента, и имеющие нечетный индекс. Массив В отсортировать
Добрый Вечер! Написал первую часть программы по этому заданию"Ввести массив А. В массив В перенести...

Ввести с клавиатуры одномерный массив, состоящий из 10 элементов
Ввести с клавиатуры одномерный массив, состоящий из 10 элементов. Заменить в нем каждый нулевой...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru