Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
Drift234
0 / 0 / 0
Регистрация: 09.03.2013
Сообщений: 4
1

Сожмите заданный массив, выбросив каждый второй элемент массива. Вывести на экран заданный и новый массив

13.03.2013, 17:10. Просмотров 1568. Ответов 1
Метки нет (Все метки)

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

Сожмите заданный массив A(N) отбрасыванием нулевых элементов. Выполнить вывод на печать полученного массива
Сожмите заданный массив A(N) отбрасыванием нулевых элементов. Выполнить вывод...

Сжать массив, выбросив из него каждый второй элемент
Дан целочисленный массив с количеством элементов n. Сжать массив,выбросив из...

“Сожмите” массив, выбросив из него каждый второй элемент
Дан целочисленный массив с количеством элементов n. “Сожмите” массив, выбросив...

Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив из него каждый второй элемент
Дан целочисленный массив с количеством элементов n. "Сожмите" массив, выбросив...

Сожмите заданный массив отбрасыванием нулевых элементов
1)Дана строка, содержащая полное имя файла. Выделить из строки название...

1
Puporev
Модератор
55022 / 42313 / 29218
Регистрация: 18.05.2008
Сообщений: 99,986
13.03.2013, 17:29 2
Лучший ответ Сообщение было отмечено Drift234 как решение

Решение

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;
var  a:array[1..100] of integer;
     n,i,j,p,x:integer;
begin
clrscr;
randomize;
write('Размер массива n=');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
i:=n;
while i>=1 do
 begin
  if i mod 2=0 then
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end;
  i:=i-1;
 end;
writeln('Сжатый массив:');
for i:=1 to n do
write(a[i]:4);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2013, 17:29

Сожмите заданный массив отбрасыванием нулевых элементов
15. Сожмите заданный массив A(N) отбрасыванием нулевых элементов. Выполнить...

Сформировать и вывести на экран заданный двумерный массив (для заполнения массива использовать формулу).
Сформировать и вывести на экран заданный двумерный массив (для заполнения...

Сформировать и вывести на экран заданный двумерный массив (для заполнения массива использовать формулу)
ребят помогите пожалуйста,очень надо.. Сформировать и вывести на экран...


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

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

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