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

Обработка массивов разной размерности

13.01.2014, 21:58. Показов 989. Ответов 1
Метки нет (Все метки)

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

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2014, 21:58
Ответы с готовыми решениями:

Создайте 2 массива разной размерности
Создайте 2 массива разной размерности в виде шахматной доски.(нужно использовать процедуры)

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

программы усложненной структуры, обработка двухмерных массивов, использование стандартных функций для работы с массивами, сортировка массивов.
Искала задачи, нашла в с++, а нужно в паскале сотворить следующее. Использование стандартных...

Поменять местами элементы двух одинаковых по размерности массивов
Помогите создать процедуру меняющую местами элементы двух одинаковых по размерности...

1
350 / 343 / 279
Регистрация: 21.05.2013
Сообщений: 1,312
13.01.2014, 22:07 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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2014, 22:07

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

Получить третий массив такой же размерности, каждый элемент которого равен большему из соответствующих элементов данных массивов
Даны 2 одномерных массива одинаковой размерности. Получить третий массив такой же размерности,...

Обработка массивов
№1 (Одномерный массив N элементов заполнить случайными значениями вывести его на экран )N=20 ...

Обработка массивов
Помогите написать: Задание 1: Составить программу, позволяющую в одномерном массиве, состоящем из...

Обработка массивов
Использовать программы ввода, вывода, обрабатывающей части. Даны 3 массива A B C 4*5 5*5 5*4...


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

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

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