Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Dimas1k
0 / 0 / 0
Регистрация: 07.02.2010
Сообщений: 11
#1

Одномерный массив. - Pascal

22.02.2010, 22:44. Просмотров 262. Ответов 1
Метки нет (Все метки)

Вводится длина одномерного массива, состоящего из целых чисел, и его элементы. Удалить все элементы, кроме имеющих заданное произведение цифр.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2010, 22:44
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Одномерный массив. (Pascal):

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C - Pascal
Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C.

Создать двумерный массив все четные элементы переписать в одномерный массив - Pascal
создать двумерный массив все четные элементы переписать в одномерный массив

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z - Pascal
Задача на Pascal. Не решу - зачёт не поставят.

Дан одномерный массив G[n]. создать массив N, удалив из исходного массива минимальные элементы - Pascal
Распишите пожалуйста подробнее!!!

Одномерный массив. Сформировать такой массив В, который содержит копию положительных элементов массива А - Pascal
Дан одномерный массив чисел А. Сформировать такой массив В, который содержит копию положительных элементов массива А.

Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого b[i]=a[1]+.+a[i] - Pascal
Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого равен b=a+a+...+a.

1
Tom_Sawyer
87 / 87 / 15
Регистрация: 05.12.2009
Сообщений: 134
22.02.2010, 22:53 #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
var
  f,s:array[1..200] of integer;
  n,c,i,r,h,l:integer;
begin
  write('Array Dimension is: ');
  read(n);
  write('Our Product: ');
  read(c);
  writeln('Source Array: ');
  for i:=1 to n do
    read(f[i]);
  readln;
  l:=0;
  for i:=1 to n do
    begin
      h:=f[i];
      r:=1;
      while h>0 do
        begin
          r:=r*(h mod 10);
          h:=h div 10;
        end;
      if r = c then
        begin
          inc(l);
          s[l]:=f[i];
        end;
    end;
  if l = 0 then
    writeln('Result Array is Empty.')
  else
    writeln('Result Array: ');
  for i:=1 to l do
    write(s[i],' ');
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.02.2010, 22:53
Привет! Вот еще темы с ответами:

Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в - Pascal
Добрый день, никак не получается решить данную задачу. Дан двухмерный массив A. Составить одномерный массив из номеров столбцов...

Вставить одномерный массив в двумерный массив так, чтобы второй столбец был отсортирован по убыванию - Pascal
Помогите пожалуйста решить задачку: Вставить в качестве новой строки одномерный массив В в двумерный массив А так, чтобы второй столбец...

Дан двумерный массив. Просмотреть четные строки и создать одномерный массив из отрицательных элементов этих строк - Pascal
Дан двумерный массив. Просмотреть четные строки и создать одномерный массив из отрицательных элементов этих строк. Произвести сортировку...

Преобразовать двумерный массив в одномерный массив - Pascal
1. Сформировать двумерный целочисленный массив W(3*13) используя генератор случайных чисел на интервале (-7,10). 2. Преобразовать массив...


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

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

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