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

Pascal ABC

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

Записать в массив В подряд номера положительных элементов - Pascal ABC

17.05.2014, 13:49. Просмотров 163. Ответов 2
Метки нет (Все метки)

Записать в массив В подряд номера положительных элементов
массива ( x1 , x 2 ,...x20 ) .
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2014, 13:49
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Записать в массив В подряд номера положительных элементов (Pascal ABC):

Переписать подряд в новый массив индексы всех положительных элементов исходного - Pascal ABC
Переписать подряд в массив ZBR индексы всех положительных элементов массива BR(N)

Переписать в одномерный массив y1 номера положительных элементов - Pascal ABC
Здравствуйте. Помогите пожалуйста с заданием... Переписать в одномерный массив y1 номера положительных элементов вещественного массива y....

Одномерный массив. Найти количество и номера положительных элементов - Pascal ABC
Задать массив случайным образом. Найти количество и номера положительных элементов.

Найти суммы четных положительных элементов каждого столбца матрицы, результат записать в одномерный массив - Pascal ABC
Найти суммы четных положительных элементов каждого столбца мат- рицы, результат записать в одномерный массив

Переписать номера положительных элементов массива X последовательно в массив Y - Pascal
Задан массив X(N) (N<=80).Переписать номера положительных элементов массива X последовательно в массив Y. Отпечатать сформированный массив...

Массив: найти среднее арифметическое значение положительных элементов, имеющих нечетные номера - Pascal
В Массиве У(n) найти среднее арифметическое значение положительных элементов, имеющих нечетные номера. программу написал, но она делает...

2
Svager
393 / 373 / 212
Регистрация: 14.09.2013
Сообщений: 1,200
17.05.2014, 14:37 #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
uses crt;
const nmax=20;
var a,b:array[1..nmax] of integer;
    i,j,n:integer;
begin
 repeat
  write('n=');
   readln(n);
 until n in [1..nmax];
 writeln('ГЊГ*Г±Г±ГЁГў ГЂ:');
 for i:=1 to n do
  begin
   a[i]:=-10+random(20);
   write(a[i]:4);
  end;
 writeln;
  j:=1;
   for i:=1 to n do
    begin
     if a[i]>=0 then
      begin
       b[j]:=i;
       inc(j);
      end;
    end;
 writeln('ГЊГ*Г±Г±ГЁГў Г‚:');
  for i:=1 to j-1 do
   write(b[i]:4);
end.
1
воробьев
0 / 0 / 0
Регистрация: 26.02.2014
Сообщений: 67
17.05.2014, 14:42  [ТС] #3
Svager, спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.05.2014, 14:42
Привет! Вот еще темы с ответами:

Найти количество положительных элементов в каждой строки матрицы и записать их значения в одномерный массив В - Pascal
Сформировать двумерный массив А размером 5*7 с помощью генератора случайных чисел и вывести элементы массива на экран. Найти количество...

Найти количество положительных элементов в каждой строки матрицы и записать их значения в одномерный массив В - Pascal
const n=5;m=7; var A:array of integer; B: array of real; i,j,k:integer; begin randomize; write('Массив...

Для каждой строки матрицы подсчитать кол-во положительных элементов и записать данные в новый массив. - Pascal
Помогите пожалуйста! Начал изучать Паскаль совсем недавно и некак не могу выполнить задание: Дан массив размером 3на3 элементы которого...

Найти номера отрицательных элементов и среднеарифметическую сумму положительных элементов - Pascal
сформировать одномерный массив целых чисел случайным образ n элементов,взятых из промежутка . найти номера отрицательных элементов и...


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

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

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