Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/25: Рейтинг темы: голосов - 25, средняя оценка - 4.60
12 / 12 / 0
Регистрация: 16.04.2010
Сообщений: 156
1

Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N).

18.10.2010, 20:48. Показов 4641. Ответов 3
Метки нет (Все метки)

1. Проверить, есть ли в заданном векторе A=(a1,a2,...,aN) элементы, равные нулю. Если есть, найти номер первого из них, если нет-выдать соответсвующее сообщение.
2. Для заданного массива X=(x1,x2,...xN) вычислить среднее арифметическое модулей разности между соседними элементами.
3. Из вектора B=(b1,b2,...bN) получить вектор A=(a1,a2,...,aN) путем исключения из В минимального элемента (первого, если их несколько.
4. Переписать подряд в массив Y положительные и в массив Z отицательные элементы массива X(N).
5. Выяснить, имеются ли в заданной последовательности чисел a1,a2,...,an два подряд идущих нулевых элемента. Если такие элементы имеются, то найти их количество.
6. Определить, является ли заданная последовательность чисел a1,a2,...,an монотонно убывающей.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2010, 20:48
Ответы с готовыми решениями:

Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N)
Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N)

Переписать в массив X подряд положительные элементы массива P, а в массив Y — отрицательные
И снова здравствуйте =) Задача: Дан массив P( N)состоящий из N вещественных чисел. Переписать...

Переписать в массив Y положительные и в массив Z отрицательные элементы массива X
Переписать в массив Y положительные и в массив Z отрицатель- ные элементы массива X. Помогите...

Записать подряд в массивы Y положительные, а в массив Z отрицательные элементы массива х1,х2,…,х20.
Записать подряд в массивы Y положительные, а в массив Z отрицательные элементы массива х1,х2,…,х20.

3
212 / 105 / 34
Регистрация: 17.10.2009
Сообщений: 174
18.10.2010, 22:09 2
Задача 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
26
27
28
29
30
31
32
33
var
   y,z,x:array[1..100] of integer;
   i,n,a,b:integer;
begin
write('Vvedit kolichestvo elementov 1 massiva=');
readln(n);
writeln('Massiv X:');
randomize;
for i:=1 to n do
 begin
  x[i]:=random(51)-10;
  write(x[i]:4);
  if (x[i]>0) then
   begin
    inc(a);
    y[a]:=x[i];
   end;
  if (x[i]<0) then
   begin
    inc(b);
    z[b]:=x[i];
   end;
 end;
writeln;
writeln('Massiv Y:');
for i:=1 to a do
 write(y[i]:4);
writeln;
writeln('Massiv Z:');
for i:=1 to b do
 write(z[i]:4);
readln
end.
Добавлено через 32 минуты
Задача 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const k=100;
var
m:array[1..k] of integer;
i,kol:integer;
begin
  randomize;
  kol:=0;
  for i:=1 to k do
  begin
    m[i]:=random(3)-2;
    write(m[i]:2);
  end;
  for i:=1 to 98 do
  begin
    if (m[i]=0)and(m[i+1]=0) then kol:=kol+1;
  end;
  writeln;
  writeln('dva idushih podryad nulevyh elem vstrch ',kol,' raz');
  readln;
end.
Добавлено через 23 минуты
Задача 6
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
Var A  : Array [1..10] of Real;
    N, i : Integer;
    Otvet: Boolean;
 
Procedure InputOutput;
 Begin
  Write('Kolichestvo elementov - '); ReadLn(N);
  For i := 1 to N do
   begin Write('A[' , i , '] = ');
            ReadLn(A[i])
   end; WriteLn;
 
  WriteLn('Zadannaa posled chisel: ');
  For i := 1 to N do Write(A[i] : 5 : 1);
  WriteLn
 End;
 
Procedure Processing( Var Otvet: Boolean);
 Begin
  Otvet := TRUE; i:=1;
 While (i<=N-1) and Otvet do
   If (A[i]<A[i+1]) then Otvet := FALSE
                    else i := i+1;
 End;
 
Procedure Result(Otvet: Boolean);
 Begin
  If Otvet then Write('Obrazuet ')
           else Write('Ne obrazuet ');
  WriteLn('Monotonno ubyvaushuy posledovatelnost');
  ReadLn
 End;
 
Begin
  InputOutput;
  Processing(Otvet);
  Result(Otvet);
End.
1
12 / 12 / 0
Регистрация: 16.04.2010
Сообщений: 156
18.10.2010, 22:35  [ТС] 3
а процедура main в 6 задаче как сделать?
0
1 / 1 / 0
Регистрация: 18.10.2010
Сообщений: 13
18.10.2010, 23:06 4
pomogite rewit 1. postroit uporyado4niy massiv a[50] iz elementov massiva b[20] i c[30]. massivy b[20] i c[30] predvaritelno uporyado4eni po vozvarastaniyu
2.dan massiv a[5,5]naiti minimalnuyu summu polojitelnih elementov diagonaley,paralelnih pobo4noy diagonali
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.10.2010, 23:06

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Переписать массив так, чтобы сначала подряд шли положительные числа, а затем подряд отрицательные
Здравствуйте. Нужна помощь в решении задачи. Задан массив-константа А(10) из целых чисел....

Если сумма элементов массива > 0, переписать в массив В положительные элементы, иначе – отрицательные
Ввести массив А(n). Найти сумму элементов массива. Если она &gt;0, переписать в массив В положительные...

Переписать в массив Z все положительные элементы массива Y, а в массиве R - все отрицательные
дан массив X (60 элементов). Вычислить: y=2*sin(SQRT (x-1))\SQR(SQRT (x) *2*x - 3 переписать в...

Переписать в массив В все положительные элементы массива А, а в С все отрицательные
ввести 2-МЕРНЫЙ массив А целого типа. сформировать 2 1-мерных массива В и С переписав в массив В...


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

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

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