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

Два исходных массива объединить в один, включив элементы второго массива между K и (K+1) элементами первого массива.

08.05.2010, 21:37. Показов 1145. Ответов 5
Метки нет (Все метки)

Ребят, помогите, пожалуйста, сделать задачи, так как сама в этом ничего не соображаю..
1. Дан массив из 20 элементов целого типа, заполненный случайными числами из промежутка [-8;8]. Написать программу, определяющую сумму и количество нечетных элементов массива, а также количество отрицательных элементов среди них.
2. Два исходных массива объединить в один, включив элементы второго массива между K и (K+1) элементами первого массива.
Буду очень признательна)***
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2010, 21:37
Ответы с готовыми решениями:

Два массива объединить в один и записать второй после максимального элемента первого.
Условие: Заданы два одномерных массива различных размеров. Объединить их в один массив, записав...

Объединить массивы в один, включив второй между пятым и шестым элементами
Ввести с клавиатуры два одномерных массива, содержащих 10 и 5 элементов. Объединить их в один...

Если элемент второго массива больше соответствующего элемента первого массива, то поменять элементы местами
Заданные два числовых массива X(N) и Y(N) преобразуйте их по правилу: для каждой пары большее из...

Рассортировать массив по убыванию числа от начала массива до первого экстремума, от первого до второго, от второго до конца массива.
Посмотрите и помогите кто может PLEASE Создать два одномерных массива А и В различной длинны. ...

5
29 / 28 / 18
Регистрация: 06.04.2010
Сообщений: 68
08.05.2010, 22:18 2
Цитата Сообщение от Lirika<3 Посмотреть сообщение
Дан массив из 20 элементов целого типа, заполненный случайными числами из промежутка [-8;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
32
33
34
35
uses crt;
const n=5; m=4;
var
a:array[1..n,1..m] of integer;
i,j,kol,kol1:byte;
sym:integer;
 
begin
clrscr;
randomize;
sym:=0;
kol:=0;
kol1:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(17)-8;
write(a[i,j]:3);
if a[i,j] mod 2<>0 then
                       begin
                       inc(kol);
                       inc(sym,a[i,j]);
                       if a[i,j]<0 then inc(kol1);
                       end;
                      
end;
writeln;
end;
 
writeln('Сумма нечетных элементов =',sym);
writeln('Количество нечетных элементов =',kol);
writeln('Количество отрицательных нечетных элементов =',kol1);
readln;
end.
1
Модератор
63389 / 47078 / 32450
Регистрация: 18.05.2008
Сообщений: 114,112
08.05.2010, 22:22 3
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
26
uses crt;
const n=20;
var a:array[1..n] of integer;
    i,s,kn,ko:integer;
begin
clrscr;
randomize;
s:=0;kn:=0;ko:=0;
writeln('.Массив:');
for i:=1 to n do
 begin
  a[i]:=random(17)-8;
  write(a[i]:3);
  if odd(a[i]) then
   begin
    s:=s+a[i];
    kn:=kn+1;
   end;
  if odd(a[i])and(a[i]<0) then ko:=ko+1;
 end;
writeln;
writeln;
writeln('Сумма нечетных=',s,' их количество=',kn);
write('Из них отрицательных=',ko);
readln
end.
1
29 / 28 / 18
Регистрация: 06.04.2010
Сообщений: 68
08.05.2010, 22:23 4
чет я ступил, для двухмерного сделал
0
Модератор
63389 / 47078 / 32450
Регистрация: 18.05.2008
Сообщений: 114,112
08.05.2010, 22:33 5
2.
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
48
uses crt;
const max=100;
var a,b:array[1..max] of integer;
    n,m,i,j,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива A n=');
readln(n);
until n in [1..max];
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a[i]:=random(9)+1;
  write(a[i],' ');
 end;
writeln;
writeln;
repeat
write('Размер массива B m=');
readln(m);
until m in [1..max];
writeln('Исходный массив B:');
for i:=1 to m do
 begin
  b[i]:=random(40)+10;
  write(b[i],' ');
 end;
writeln;
writeln;
repeat
writeln('Введите индекс элемента массива А, после которого вставить массив В');
write('от 1 до ',n-1,' k=');
readln(k);
until k in [1..n-1];
for i:=1 to m do
 begin
  n:=n+1;
  for j:=n downto k+1+i do
  a[j]:=a[j-1];
  a[k+i]:=b[i];
 end;
writeln('Объединенные массивы:');
for i:=1 to n do
write(a[i],' ');
readln
end.
2
Lirika<3
09.05.2010, 00:16 6
DaTa, Puporev Спасибо вам огромное, ребят!!!! Вы не представляете как меня выручили, а главное так быстро))) Вы самые лучшие программисты, которых я знаю!!! СПАСИБО=***
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.05.2010, 00:16

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

Удалить элементы расположенные между максимальным и минимальным элементами массива Х. Элементы массива Х вычисляются по формуле Xi=((-1)^i)*((i^2)-3*i), где i=1,2,...,10.
Удалить элементы расположенные между максимальным и минимальным элементами массива Х. Элементы...

Удалить из одномерного массива все элементы расположенные между максимальным и минимальным элементами массива
Удалить из одномерного массива все элементы расположенные между максимальным и минимальным...

Как объединить два массива 3х3 в один 3х6?
Ребята подскажите, пожалуйста как решить такую задачу? Заданы два двумерных массива K и L...

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


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

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

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