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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 13.12.2013, 19:04   #1
Nata111
 
Регистрация: 04.11.2013
Сообщений: 7
По умолчанию !!!Pascal!!!

Найдите, пожалуйста, ошибку в программе:
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 begin readln (a[i]);
If I/2=I div2 then k:=k+A[i]
end;
writeln (‘k=’,k);
readln;
end.

Условие: найти сумму элементов с чётными номерами из последовательности n чисел.
Nata111 вне форума
Старый 13.12.2013, 19:27   #2
_BYTE
Пользователь
 
Регистрация: 11.12.2013
Сообщений: 56
По умолчанию

проверка на четность делается так: if (i mod 2 = 0) then...
_BYTE вне форума
Старый 13.12.2013, 19:32   #3
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

Код:
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.

Последний раз редактировалось ZX Spectrum-128; 13.12.2013 в 19:34.
ZX Spectrum-128 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
pascal abc, pascal turbo. выборка данных из одного .txt в другой ТипичныйСтудент Помощь студентам 6 27.04.2013 15:29
Задача turbo pascal на тему: файлы с произвольным доступом в Pascal ExCiTeC Паскаль, Turbo Pascal, PascalABC.NET 0 28.01.2013 20:36
Программы в Pascal, среда pascal ABC. Лабораторные работы Одинокая Волчица Фриланс 8 10.02.2012 20:09
Turbo Pascal и Free Pascal , в чем разница? antoxann Паскаль, Turbo Pascal, PascalABC.NET 31 09.11.2011 07:52
а free pascal не читает задачи которые написаны на turbo pascal? demonara Паскаль, Turbo Pascal, PascalABC.NET 3 25.05.2009 16:28