Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.96/23: Рейтинг темы: голосов - 23, средняя оценка - 4.96
and-alf
1

Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него элементы стоят по возрастанию, а справа – по убыванию (в

16.03.2014, 22:51. Просмотров 4736. Ответов 1
Метки нет (Все метки)

Задание:Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него элементы стоят по возрастанию, а справа – по убыванию (ввести X с клавиатуры). Соседние элементы отличаются на единицу. Например: 1 2 3 2 1.

Проверьте, пожалуйста, что не правильно

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
Program zadasha;
uses crt;
var
  a: array[1..255] of integer;
  i,n: byte;
  k:integer;
begin
clrscr;
  repeat
    write('Введите размер массива n (n<=255): ');
    readln(n);
  until n in [1..255];
  repeat
  writeln('Введите число от -32640 до 32639');
  readln(k);
  until k in [-32640..32639];
  a[n div 2]:=k;
  for i:=n div 2 downto 1 do
a[i]:=a[i+1]-1;
  for i:=n div 2 to 1 do
    a[i]:=a[i-1]+1;
    for i:=1 to 1 do  
  write(a[i]);
end.
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.03.2014, 22:51
Ответы с готовыми решениями:

Заполнить массив целыми числами так, чтобы элемент с координатами [x, y] был равен 1
Ввести числа X и Y (≤10) и заполнить массив целыми числами так, чтобы элемент с координатами был...

Заполните массив степенями числа 2, так, чтобы последний элемент массива был равен 1
заполните массив степенями числа 2,так что-бы последний элемент массива был равен 1,а каждый...

[КуМир]Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него элементы стоят по в
Заполните массив целыми числами, так чтобы средний элемент массива был равен X, слева от него...

Отсортировать по убыванию элементы массива слева от случайного числа, и справа - по возрастанию.
Дан массив из 20 целых чисел со значениями от 1 до 20. Необходимо: написать функцию,...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
28999 / 19141 / 7517
Регистрация: 22.10.2011
Сообщений: 33,353
Записей в блоге: 6
17.03.2014, 02:25 2
Цитата Сообщение от and-alf Посмотреть сообщение
что не правильно
Смотри комментарии.
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
Program zadasha;
uses crt;
var
  a: array[1..255] of integer;
  i,n: byte;
  k:integer;
begin
  clrscr;
  repeat
    write('Введите размер массива n (n<=255): ');
    readln(n);
  until n in [4..255]; { при вводе 1 .. 3 у тебя будут проблемы, подумай, надо оно? }
  repeat
    writeln('Введите число от -32640 до 32639');
    readln(k);
  until (k >= -32640) and (k <= 32639);
  { until k in [-32640..32639]; } { <--- Это неправильно, множество - максимум 255 значений}
 
  a[n div 2]:=k;
  for i:=(n div 2) - 1 downto 1 do { <--- Здесь внимательнее }
    a[i]:=a[i+1]-1;
  for i:=(n div 2) + 1 to n do { <--- Здесь тоже }
    a[i]:=a[i-1]+1;
  for i:=1 to n do { <--- Ну и вот тут заодно }
  write(a[i]:6);
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2014, 02:25

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Отсортировать элементы массива, находящиеся слева от заданного числа по убыванию, а справа по возрастанию
Есть задание: Дан массив из 20 целых чисел со значениями от 1 до 20. Необходимо: 1. написать...

Сформировать массив B так чтобы в него вошли те элементы массива А, которые являются числами Фибоначи
в массиве А(55) лежат целые числа. Сформировать новый массив В таким образом чтобы в него вошли те...

Заполните массив случайными целыми числами и отсортируйте его по возрастанию
Помогите решить задачки, ни чего не понимаю как делать,а утром надо сдать... 1.Напишите программу...

Сформировать массив B так, чтобы в него вошли элементы массива А, индексы которых являются простыми числами
В массиве А(55) лежат целые числа. Сформировать массив B таким образом, чтобы в него вошли те...


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

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

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