Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 13.01.2014
Сообщений: 4
1

Даны три массива А, В и C. Сформировать массивы А1, В1 и С1, содержащие положительные нечетные элементы массивов А, В и С соответственно.

13.01.2014, 21:51. Показов 1228. Ответов 2
Метки нет (Все метки)

Даны три массива А, В и C. Сформировать массивы А1, В1 и С1, содержащие положительные нечетные элементы массивов А, В и С соответственно.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2014, 21:51
Ответы с готовыми решениями:

Сформировать массивы, А1, В1 и С1, содержащие положительные нечетные элементы массивов А, В и С соответственно
Даны три массива А, В и C. Сформировать массивы А1, В1 и С1, содержащие положительные нечетные...

Даны три целочисленных массива А, В и С размера NА, NВ, NС соответственно, элементы которых упорядочены по убыванию
Даны три целочисленные массивы А, В и С размера NА, NВ, NС соответственно, элементы которых...

Сформировать одномерные массивы В и С, содержащие, соответственно, четные и нечетные элементы массива А
Дан целочисленный массив A=\begin{bmatrix} 13 & 6 & 8 & 15 & 18\\ 2 & 9 & 21 & 13 & 36...

Даны три массива A[10], B[7], C[8]. Упорядочить массивы в порядке возрастания и сформировать массив D
Добрый день. Помогите пожалуста с лабораторной работой, Задание Даны три массива A, B, C....

__________________
2
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
13.01.2014, 22:06 2
Лучший ответ Сообщение было отмечено Vision69 как решение

Решение

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
program Vision69;
{$APPTYPE CONSOLE}
uses SysUtils;
var a,b,c,a1,b1,c1:array [1..100] of Integer;
    q,i,n:Integer;
begin
  Write('Enter size of array [A] = ');Readln(n);
  Write('Array A [start] = ');q:=0;
  for i:=1 to n do
    begin
      a[i]:=Random(100)-50;
      if ((Odd(a[i])) and (a[i]>0)) then
        begin
          Inc(q);
          a1[q]:=a[i];
        end;
      Write(a[i],' ');
    end;
  Writeln;
  write('Array A [finish] = ');
  if (q=0) then Write('No element.')
  else
    begin
        for i:=1 to q do
          begin
            write(a1[i],' ');
          end;
    end;
  Writeln;
  Write('Enter size of array [B] = ');Readln(n);
  Write('Array B [start] = ');q:=0;
  for i:=1 to n do
    begin
      b[i]:=Random(100)-50;
      if ((Odd(b[i])) and (b[i]>0)) then
        begin
          Inc(q);
          b1[q]:=b[i];
        end;
      Write(b[i],' ');
    end;
  Writeln;
  write('Array B [finish] = ');
  if (q=0) then Write('No element.')
  else
    begin
        for i:=1 to q do
          begin
            write(b1[i],' ');
          end;
    end;
  Writeln;
  Write('Enter size of array [C] = ');Readln(n);
  Write('Array C [start] = ');q:=0;
  for i:=1 to n do
    begin
      c[i]:=Random(100)-50;
      if ((Odd(c[i])) and (c[i]>0)) then
        begin
          Inc(q);
          c1[q]:=c[i];
        end;
      Write(c[i],' ');
    end;
  Writeln;
  write('Array B [finish] = ');
  if (q=0) then Write('No element.')
  else
    begin
        for i:=1 to q do
          begin
            write(c1[i],' ');
          end;
    end;
  Writeln;
  Writeln('The end.');
  readln;
end.
0
0 / 0 / 0
Регистрация: 13.01.2014
Сообщений: 4
13.01.2014, 22:12  [ТС] 3
Большое спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2014, 22:12

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

Вывести и обработать три массива, содержащие соответственно 5, 10 и 4 целых компонентов
Разработать следующие процедуры: 1 Ввод массива ручной с клавиатуры, 2 Вывод массива в...

Ввести и обработать три массива, содержащие соответственно 3, 6 и 8 целых компонентов
Постановка задачи Дано несколько массивов чисел. Длины массивов заданы в конкретном варианте....

Сформировать два массива, заключив в каждый четные и нечетные номера исходного массива соответственно
Задан массив с количеством элементов N. Сформируйте два массива: в первый включите элементы...

Даны три одномерных массива. Сформировать двумерный массив, вычисляя его элементы по формуле A[i]- B[j]*|C[k]|
Даны три одномерных массива. Сформировать двумерный массив из элементов одномерных массивов...


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

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

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