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

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

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

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

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

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

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

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

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

8
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,687
Записей в блоге: 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
3003 / 1892 / 1646
Регистрация: 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
3003 / 1892 / 1646
Регистрация: 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
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,687
Записей в блоге: 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

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

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

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


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

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

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