Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
воробьев
0 / 0 / 5
Регистрация: 26.02.2014
Сообщений: 67
#1

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

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

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

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

Массив: Найти среднее арифметическое первых подряд идущих положительных элементов массива...
найти среднее арифметическое первых подряд идущих положительных элементов...

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

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

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

2
Svager
394 / 374 / 405
Регистрация: 14.09.2013
Сообщений: 1,202
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 / 5
Регистрация: 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
Привет! Вот еще темы с решениями:

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

Найти количество положительных элементов в каждой строки матрицы и записать их значения в одномерный массив В
const n=5;m=7; var A:array of integer; B: array of real; ...

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

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


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

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

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