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

Составить одномерный массив

19.02.2015, 10:00. Просмотров 816. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста как можно быстрее составить одномерный массив.

Одномерный массив размерности 17 заполнить случайными числами из

диапазона [-9..13]. Вывесите сформулированный массив на экран.

Переместить нулевые элементы массива в начало, сдвинув остальные элементы

вправо. Вывести массив на экран.

Переместить максимальные элементы в конец массива сдвинув остальные

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

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

Составить одномерный массив по формуле
a={3.1;6.1;-0.2;-1.5;15} b={0.1;0.25;-4.1;-0.6;4.3} S = \sin...

Составить одномерный массив из седловых точек матрицы
Дана прямоугольная матрица прямых чисел составить одномерный массив из седловых...

Из четных элементов матрицы составить одномерный массив
Задан двумерный массив А(3,6).Из четных элементов этого массива составить...

Составить одномерный массив из двумерного A[n,m] n<=20 m<=20 из чисел нацело делящихся на 5
Помогите пожалуйста))))

1
Puporev
Модератор
54590 / 42094 / 29065
Регистрация: 18.05.2008
Сообщений: 99,319
19.02.2015, 10:21 2
Лучший ответ Сообщение было отмечено EwaMayer как решение

Решение

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
uses crt;
const n=17;
var a,b:array[1..n] of integer;
    i,j,k,x,mx:integer;
begin
clrscr;
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=-9+random(23);
  write(a[i]:4);
 end;
writeln;
b:=a;
k:=0;
for i:=1 to n do
if b[i]=0 then
 begin
  k:=k+1;
  x:=b[i];
  for j:=i downto k+1 do
  b[j]:=b[j-1];
  b[k]:=x;
 end;
writeln('Перестановка нолей в начало:');
for i:=1 to n do
write(b[i]:4);
writeln;
mx:=a[1];
for i:=2 to n do
if a[i]>mx then mx:=a[i];
k:=0;
for i:=n downto 1 do
if a[i]=mx then
 begin
  k:=k+1;
  x:=a[i];
  for j:=i to n-k do
  a[j]:=a[j+1];
  a[n-k+1]:=x;
 end;
writeln('Перестановка максимальных в конец:');
for i:=1 to n do
write(a[i]:4);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2015, 10:21

Составить одномерный массив В из элементов исходного массива по правилу
Дан одномерный массив С, состоящий из n-элементов. Составить одномерный массив...

Составить одномерный массив D из минимальных элементов столбцов матрицы B
Есть задание: Сформировать двумерный массив B размером 4 x 3 с помощью...

Составить одномерный массив D из минимальных элементов столбцов матрицы B
ЗАДАЧА: Сформировать двумерный массив B размером 3 x 3 с помощью генератора...


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

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

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