Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2013, 17:24   #1
Nata111
 
Регистрация: 04.11.2013
Сообщений: 7
По умолчанию найти сумму элементов с чётными номерами из последовательности n чисел. (в Pascal)

Найдите, пожалуйста, ошибку.
Условие: найти сумму элементов с чётными номерами из последовательности n чисел.

Код:
Program SUMMA;
Uses crt;
Const N=10;
Var k,i:Integer;
a: array [1..N] of integer;
Begin
clrscr;
k:=0;
For i:=1 to N do 
  readln (a[i]);
For i:=1 to N do
  If not odd(i) then k:=k+A[i];
writeln ('k=',k);
readln;
end.
У меня ошибка выдаётся) : Не могу получить доступ к файлу 'C:\PABCWork.NET\Program1.exe'

спрашивала у преподавателя в университете, она сказала, что нижепредставленные строчки нужно писать так и что A[i] вообще вводить не нужно, а так действительно можно???
как у меня
readln (a[i]);
If not odd(i) then k:=k+A[i];

исправлено преподавателем
readln [i];
If not odd(i) then i:=i+1;

Последний раз редактировалось Serge_Bliznykov; 14.12.2013 в 19:44.
Nata111 вне форума Ответить с цитированием
Старый 14.12.2013, 19:49   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Nata111 Посмотреть сообщение
Найдите, пожалуйста, ошибку.
Условие: найти сумму элементов с чётными номерами из последовательности n чисел.

Код:
Program SUMMA;
Uses crt;
Const N=10;
Var k,i:Integer;
a: array [1..N] of integer;
Begin
clrscr;
k:=0;
For i:=1 to N do 
  readln (a[i]);
For i:=1 to N do
  If not odd(i) then k:=k+A[i];
writeln ('k=',k);
readln;
end.
У меня ошибка выдаётся) : Не могу получить доступ к файлу 'C:\PABCWork.NET\Program1.exe'
код у Вас правильный и работает корректно.


Цитата:
Сообщение от Nata111 Посмотреть сообщение
исправлено преподавателем
readln [i];
If not odd(i) then i:=i+1;
Что!!!! Это Вам преподаватель написал?!!
Вы точно не ошибаетесь? Если это реально так, то мне вас очень жаль - преподаватель у Вас, мягко говоря, НЕКОМПЕТЕНТЕН!!

p.s. массив можно не вводить.
Можно его задать в виде константы (заполнить заранее подготовленными значениями). Можно заполнить случайными(псевдо) числами (получать с помощью генератора псевдослучайных чисел).
Serge_Bliznykov вне форума Ответить с цитированием
Старый 14.12.2013, 20:22   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
преподаватель у Вас, мягко говоря, НЕКОМПЕТЕНТЕН!!
Ну ошибки у всех бывают, даже у преподов. И если очередь стоит со своим кодом, да еще с каким кодом, то и не так можно ошибиться. Без массива можно так
Код:
var a: Integer;
...
for i:=1 to N do begin
  readln (a);
  If not odd(i) then k:=k+a;
end;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 14.12.2013 в 20:25.
Аватар вне форума Ответить с цитированием
Старый 16.12.2013, 20:13   #4
Nata111
 
Регистрация: 04.11.2013
Сообщений: 7
По умолчанию

Большое спасибо за ответы)
Nata111 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана последовательность из n целых чисел. Найти сумму нечетных элементов этой последовательности.С++ punkvalera Помощь студентам 1 13.05.2012 20:35
В последовательности определить сумму чисел,их количество,максимальное и минимальное число с их порядковыми номерами (QBasic) Лена1308 Помощь студентам 3 14.12.2011 22:20
В последовательности определить сумму чисел,их количество,максимальное и минимальное число с их порядковыми номерами (QBasic) Лена1308 Помощь студентам 0 01.12.2011 21:19
Найти разность суммы элементов массива В(20) с чётными номерами... никита989 Помощь студентам 6 16.01.2008 13:51