Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
2 / 2 / 1
Регистрация: 09.05.2009
Сообщений: 18
1

Линейные массивы

09.05.2009, 13:45. Показов 1780. Ответов 6
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Здрасте, решите пжлста задачки:

A8:
В массиве все элементы, стоящие после максимального, заменить на 0.
Пример: из массива A[5]: 3 2 1 5 4 должен получиться массив 3 2 1 5 0.

A9:
В массиве все нечетные элементы, стоящие после максимального, заменить на 0.
Пример: из массива A[5]: 3 7 1 5 4 должен получиться массив 3 7 0 0 4.

A10:
В массиве все четные элементы, стоящие левее минимального, заменить на 0.
Пример: из массива A[5]: 3 2 1 0 4 должен получиться массив 3 0 1 0 4.

A1:
В массиве все четные элементы обнулить.
Пример: из массива A[5]: 1 3 4 5 6 должен получиться массив 1 3 0 5 0.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 09.05.2009, 13:45
Ответы с готовыми решениями:

Линейные массивы
Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нем отрицательных,...

Линейные массивы
Нужно написать программу, которая проверяет – образуют ли элементы заданного массива возрастающую...

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

линейные массивы
Написать программу, которая подсчитывает количество поло*жительных элементов в заданном массиве а ,...

6
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
09.05.2009, 14:55 2
А8:
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

program gen ;
uses crt;
const n=5;
var
a:array [1..т] of integer;
i,max,k:integer;
 
begin
clrscr;
randomize;
writeln('Mas: ');
     for i:= 1 to n do 
          begin
     a[i]:=random(10);
write(a[i]:3);
end;
writeln;
 
max:=1;
for i:= 1 to n do
      if a[i]>max then
             begin
      k:=i; max:=a[i];
end;
 
for i:= k to n do
         a[i+1]:=0;
              for i:= 1 to n do
          write(a[i]:3);
          readkey;
end.
А9:
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

program gen_10;
uses crt;
const n=5;
var
a:array [1..5] of integer;
i,max,k:integer;
 
begin
clrscr;
    randomize;
    writeln('Mas: ');
       for i:= 1 to n do
       begin
    a[i]:=random(10);
    write(a[i]:3);
    end;
writeln;
 
max:=1;
   for i:= 1 to n do
     if a[i]>max then
     begin
     k:=i; max:=a[i];
end;
 
for i:= k+1 to n do
    if odd(a[i]) then
                a[i]:=0;
    for i:= 1 to n do
    write(a[i]:3);
readkey;
end.
А10:
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

program gen_22 ;
uses crt;
const n=5;
var
a:array [1..n] of integer;
i,min,k:integer;
 
begin
clrscr;
    randomize;
    writeln('Mas: ');
       for i:= 1 to n do
       begin
    a[i]:=random(10);
    write(a[i]:3);
    end;
writeln;
 
min:=a[1];
   for i:= 1 to n do
     if a[i]<min then
     begin
     k:=i; min:=a[i]; end;
 
for i:= k downto 1 do
    if not odd(a[i]) then
                a[i]:=0;
    for i:= 1 to n do
    write(a[i]:3);
readkey;
end.
А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
25

program gen_1 ;
uses crt;
const n=5;
var
a:array [1..n] of integer;
i,min,k:integer;
 
begin
clrscr;
    randomize;
    writeln('Mas: ');
       for i:= 1 to n do
       begin
    a[i]:=random(10);
    write(a[i]:3);
    end;
writeln;
 
for i:= 1 to n do
    if not odd(a[i]) then
                a[i]:=0;
    for i:= 1 to n do
    write(a[i]:3);
readkey;
end.
1
2 / 2 / 1
Регистрация: 09.05.2009
Сообщений: 18
09.05.2009, 22:01  [ТС] 3
Цитата Сообщение от c00le® Посмотреть сообщение
А8:
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

program gen ;
uses crt;
const n=5;
var
a:array [1..т] of integer;
i,max,k:integer;
 
begin
clrscr;
randomize;
writeln('Mas: ');
     for i:= 1 to n do 
          begin
     a[i]:=random(10);
write(a[i]:3);
end;
writeln;
 
max:=1;
for i:= 1 to n do
      if a[i]>max then
             begin
      k:=i; max:=a[i];
end;
 
for i:= k to n do
         a[i+1]:=0;
              for i:= 1 to n do
          write(a[i]:3);
          readkey;
end.
cпасибо Вам огромное.

Добавлено через 2 часа 1 минуту 21 секунду
Огромная просьба решить, еще одну задачку:

В массиве все элементы, стоящие между четными, заменить на 1.
Пример: из массива A[5]: 1 3 4 5 6 должен получиться массив 1 2 4 1 6.

Заранее спасибо.
0
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
13.05.2009, 22:59 4
наверное так:
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

program gen_1 ;
uses crt;
const n=5;
var
a:array [1..10] of integer;
i,min,k:integer;
 
begin
clrscr;
    randomize;
    writeln('Mas: ');
       for i:= 1 to n do
       begin
    a[i]:=random(10);
    write(a[i]:3);
    end;
writeln;
 
for i:= 1 to n do
    if odd(a[i]) then
                a[i]:=1;
    for i:= 1 to n do
    write(a[i]:3);
readkey;
end.
1
2 / 2 / 1
Регистрация: 09.05.2009
Сообщений: 18
14.05.2009, 00:11  [ТС] 5
Цитата Сообщение от c00le® Посмотреть сообщение
наверное так:
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

program gen_1 ;
uses crt;
const n=5;
var
a:array [1..10] of integer;
i,min,k:integer;
 
begin
clrscr;
    randomize;
    writeln('Mas: ');
       for i:= 1 to n do
       begin
    a[i]:=random(10);
    write(a[i]:3);
    end;
writeln;
 
for i:= 1 to n do
    if odd(a[i]) then
                a[i]:=1;
    for i:= 1 to n do
    write(a[i]:3);
readkey;
end.
огромное спасибо за помощь,но немного неверно работает
Например из массива
0 5 7 3 9 получается массив 0 1 1 1 1
0
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
14.05.2009, 00:25 6
ну так 5 7 3 9 это нечетные элементы

Добавлено через 6 минут 28 секунд
или поясните как точно должно быть?
0
2 / 2 / 1
Регистрация: 09.05.2009
Сообщений: 18
15.05.2009, 21:29  [ТС] 7
Цитата Сообщение от c00le® Посмотреть сообщение
ну так 5 7 3 9 это нечетные элементы

Добавлено через 6 минут 28 секунд
или поясните как точно должно быть?
если массив 5 7 3 9 он должен остатся 5 7 3 9. А,например, из массива 4 9 8 5 3 должен получится 4 1 8 5 3

Добавлено через 24 минуты 6 секунд
Тоесть между четными, а не нечетными.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 15.05.2009, 21:29
Помогаю со студенческими работами здесь

Линейные массивы.
Поправьте пожалуйста код программы в соответствии с условием. Cоставить программу, которая находит...

Линейные массивы
известны сведения о количестве осадков выпавших за каждый день мая. первого мая осадков не было ....

Линейные массивы.
народ привет! я в паскале полный ноль, надеюсь на вашу помощь! вот задание: в векторе х(N)...

Линейные массивы
Помогите решить. плизз. Задача1. Дан массив действительных чисел, размерность которого N....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru