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

Turbo Pascal

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

Составить программу для нахождения количества положительных элеменов,имеющих нечетные места - Turbo Pascal

13.01.2013, 09:41. Просмотров 402. Ответов 8
Метки нет (Все метки)

Составить программу для нахождения количества положительных элеменов,имеющих нечетные места.
Помогите, в массивах вообще нечего не понял, а преподы даже не объясняют.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.01.2013, 09:41
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Составить программу для нахождения количества положительных элеменов,имеющих нечетные места (Turbo Pascal):

Составить программу нахождения суммы положительных и количества отрицательных элементов двумерного массива А(3,5). - Turbo Pascal
11. Составить программу нахождения суммы положительных и количества отрицательных элементов двумерного массива А(3,5). 12. Составить...

Составить программу для нахождения общего количества заданной буквы в трех заданных предложениях - Turbo Pascal
Составить программу для нахождения общего количества заданной буквы в трех заданных предложениях. Определить функцию для расчета количества...

Составить программу для нахождения общего количества заданной буквы в трех заданных предложениях - Pascal
Составить программу для нахождения общего количества заданной буквы в трех заданных предложениях. Определить функцию для расчета количества...

Составить программу для нахождения наименьшего из положительных элементов массива из 20 целых чисел диапазона (-50;50) - Turbo Pascal
составить программу для нахождения наименьшего из положительных элементов массива из 20 целых чисел диапазона (-50;50). помогите пожалуйста.

Составить программу нахождения количества простых чисел от m до n (Организация подпрограмм) - Turbo Pascal
Составить программу нахождения количества простых чисел от m до n. Проверку, является ли число простым, оформить в виде функции

Составить программу нахождения произведения положительных элементов массива - Turbo Pascal
Составить программу нахождения произведения положительных элементов массива

8
CodeR
Фрилансер
3365 / 2774 / 787
Регистрация: 08.02.2012
Сообщений: 6,166
Записей в блоге: 1
13.01.2013, 09:44 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var A:array[1..100] of integer;
    i,n,k:byte;
Begin
    Randomize;
    write('Размерность n<=100: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if odd(i) and (A[i]>0) then inc(k);
    End;
    writeln;
    writeln('Положительных имеющие нечетные места = ',k);
    readln;
End.
1
кот25
0 / 0 / 0
Регистрация: 13.01.2013
Сообщений: 6
13.01.2013, 10:07  [ТС] #3
Спасибо большое, очень оперативно ответили)
0
кот25
0 / 0 / 0
Регистрация: 13.01.2013
Сообщений: 6
16.01.2013, 17:37  [ТС] #4
Цитата Сообщение от CodeR Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var A:array[1..100] of integer;
    i,n,k:byte;
Begin
    Randomize;
    write('Размерность n<=100: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if odd(i) and (A[i]>0) then inc(k);
    End;
    writeln;
    writeln('Положительных имеющие нечетные места = ',k);
    readln;
End.
А это ведь не подходит для турбо паскаля, можете помочь как правильно сделать для турбо паскаля...
0
Kodzaev
2999 / 1888 / 611
Регистрация: 30.04.2011
Сообщений: 3,054
16.01.2013, 17:52 #5
кот25, все подходит замечательно.
0
кот25
0 / 0 / 0
Регистрация: 13.01.2013
Сообщений: 6
16.01.2013, 18:21  [ТС] #6
Цитата Сообщение от Kodzaev Посмотреть сообщение
кот25, все подходит замечательно.
Я сегодня проверял на компьютере в техникуме, не подошло, или возможно паскаль плохой какой то, он русские слова не понимает...
0
Kodzaev
2999 / 1888 / 611
Регистрация: 30.04.2011
Сообщений: 3,054
16.01.2013, 18:24 #7
кот25, ну так поменяйте русские слова на английские или скачайте здесь PascalABC
Скачать Паскаль
0
кот25
0 / 0 / 0
Регистрация: 13.01.2013
Сообщений: 6
16.01.2013, 18:46  [ТС] #8
На этом паскале я дома тоже проверял, все работает прекрасно, а установлен другой паскаль. называется Pascal Turbo.
0
CodeR
Фрилансер
3365 / 2774 / 787
Регистрация: 08.02.2012
Сообщений: 6,166
Записей в блоге: 1
16.01.2013, 19:00 #9
Цитата Сообщение от кот25 Посмотреть сообщение
На этом паскале я дома тоже проверял, все работает прекрасно, а установлен другой паскаль. называется Pascal Turbo.
как вам уже сказал Kodzaev напишите по английски или просто кодировку файла смените в который сохраняете программу
0
16.01.2013, 19:00
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2013, 19:00
Привет! Вот еще темы с ответами:

По теме циклы: Составить программу нахождения положительных чётных чисел меньших А - Turbo Pascal
1.Составить программу нахождения положительных чётных чисел меньших А (А вводить с клавиатуры) помогите пожалуйста

Вычислить среднее арифметическое положительных элементов массива, имеющих нечетные индексы. - Turbo Pascal
Вычислить среднее арифметическое положительных элементов массива, имеющих нечетные индексы.

Составить программу нахождения количества простых чисел от m до n. Проверку, является ли число простым, оформить в виде функции - Turbo Pascal
Составить программу нахождения количества простых чисел от m до n. Проверку, является ли число простым, оформить в виде функции

Рекурсия: Составить программу подсчета общего количества положительных элементов в массивах - Pascal
Составить программу подсчета общего количества положительных элементов в массивах А и В.


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

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

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