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

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

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

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

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

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

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

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

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

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

Составить одномерный массив по формуле
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
Помогите пожалуйста))))

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

1
Puporev
Модератор
54132 / 41765 / 28875
Регистрация: 18.05.2008
Сообщений: 98,294
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
Привет! Вот еще темы с решениями:

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

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

Составить одномерный массив из максимальных элементов в строках матрицы
вводятся две вещественные прямоугольные матрицы размером M*N и K*L.Для той...

Составить одномерный массив из слов, которые отличны от ы и от слова INFORMATION
Дана строка из слов, разделенных пробелами. Составить одномерный массив из...


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

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

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