Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
Kristina T.
0 / 0 / 0
Регистрация: 21.11.2011
Сообщений: 43
#1

Вывести на экран сначала элементы массива, стоящие на четных местах, затем на нечетных

29.11.2011, 20:26. Просмотров 1994. Ответов 4
Метки нет (Все метки)

ВЫвести элементы массива в обратном порядке

Добавлено через 2 минуты
Дан массив. Вывести на экран сначала его элементы, стоящие на четных местах, затем на нечетных

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2011, 20:26
Ответы с готовыми решениями:

Дан массив. Вывести на экран сначала с элементы, стоящие на чет¬ных местах, затем — на нечетных
Дан массив. Вывести на экран сначала с элементы, стоящие на чет¬ных местах,...

Сначала выводятся числа, стоящие на нечетных местах, а затем — стоящие на четных местах
Требования к следующим программам: Код программы должен содержать процедуры и...

Элементы массива Х[i] стоящие на четных местах переписать в массив Y[i] а стоящие на нечетных местах в Z[i]
Элементы массива Х стоящие на четных местах переписать в массив Y а стоящие на...

Вывести на экран элементы, меньшие 20, стоящие на нечетных местах
1.Создать массив, вводя значения элементов с клавиатуры. Вывести на экран...

Вывести на экран только элементы, стоящие на четных местах
Решить: Создать массив с именем А из 10-ти элементов, задав значения его...

4
WebMax 2.0
--\.founder./--
561 / 561 / 392
Регистрация: 20.10.2011
Сообщений: 867
29.11.2011, 20:39 #2
Цитата Сообщение от Kristina T. Посмотреть сообщение
ВЫвести элементы массива в обратном порядке
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
 
var a,b:array [1..10] of integer;
i:integer;
 
begin
  clrscr;
    Writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў: ');
      for i:=1 to 10 do
        begin
        randomize;
        a[i]:=random(9)+1;
        write(a[i]:3);
        end;
      writeln;
writeln;
 
Writeln('Íîâûé Г¬Г*Г±Г±ГЁГў: ');
      for i:=10 downto 1 do
        write(a[i]:3);
      writeln;
 
end.
Добавлено через 4 минуты
Цитата Сообщение от Kristina T. Посмотреть сообщение
Дан массив. Вывести на экран сначала его элементы, стоящие на четных местах, затем на нечетных
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
uses crt;
 
var a,b:array [1..10] of integer;
i:integer;
 
begin
  clrscr;
    Writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў: ');
      for i:=1 to 10 do
        begin
        randomize;
        a[i]:=random(9)+1;
        write(a[i]:3);
        end;
      writeln;
 
Writeln('ÝëåìåГ*ГІГ» ñòîÿùèå Г*Г* Г·ГҐГІГ*ûõ ìåñòГ*Гµ: ');
    for i:=1 to 10 do
    if (not odd(i)) then write(a[i],' ');
Writeln;
Writeln('ÝëåìåГ*ГІГ» ñòîÿùèå Г*Г* Г*ГҐГ·ГҐГІГ*ûõ ìåñòГ*Гµ: ');
    for i:=1 to 10 do
    if odd(i) then write(a[i],' ');
 
   readln;
end.
1
Kristina T.
0 / 0 / 0
Регистрация: 21.11.2011
Сообщений: 43
29.11.2011, 20:46  [ТС] #3
randomize, random -это что и чем можно заменить?
0
WebMax 2.0
--\.founder./--
561 / 561 / 392
Регистрация: 20.10.2011
Сообщений: 867
29.11.2011, 20:59 #4
Цитата Сообщение от Kristina T. Посмотреть сообщение
randomize, random -это что и чем можно заменить?
Randomize - активирует генератор случайных чисел ;
C помощью функции random задаем диапазон случайно присваиваемых значений каждому эл-ту массива !

Pascal
1
2
randomize;
a[i]:=random(9)+1;
Можно заменить на
Pascal
1
2
Write('Введите ',i,'-й элемент: ');
readln(a[i]); {Ввод с клавиатуры}
Вывод массива записать в отдельном цикле For !

Ввод каждого элемента массива с клавиатуры !
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
uses crt;
 
var a,b:array [1..10] of integer;
i:integer;
 
begin
  clrscr;
    Writeln('ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў: ');
      for i:=1 to 10 do
        begin
        Write('Ââåäèòå ',i,'-Г© ýëåìåГ*ГІ: ');
        readln(a[i]);
        end;
      writeln;
      
for i:=1 to 10 do
write(a[i]:3);
writeln;
 
Writeln('ÝëåìåГ*ГІГ» ñòîÿùèå Г*Г* Г·ГҐГІГ*ûõ ìåñòГ*Гµ: ');
    for i:=1 to 10 do
    if (not odd(i)) then write(a[i],' ');
Writeln;
Writeln('ÝëåìåГ*ГІГ» ñòîÿùèå Г*Г* Г*ГҐГ·ГҐГІГ*ûõ ìåñòГ*Гµ: ');
    for i:=1 to 10 do
    if odd(i) then write(a[i],' ');
 
   readln;
end.
1
Kristina T.
0 / 0 / 0
Регистрация: 21.11.2011
Сообщений: 43
01.12.2011, 17:44  [ТС] #5
Спасибо огромное , вы очень помогли..... все получилось!!!
0
01.12.2011, 17:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.12.2011, 17:44

Поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.
В заданном одномерном массиве поменять местами соседние элементы, стоящие на...

Найти количество строк, в которых все элементы, стоящие на четных местах, больше среднего арифметического элементов, стоящих на нечетных местах.
Дана матрица натуральных чисел А(N,N). Найти количество строк, в которых все...

Вывести все четные элементы массива стоящие на четных местах, принадлежащие отрезку CD.
Дан целочисленный двумерный массив 5х5. Вывести все четные элементы массива...


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

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

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