Массив в Паскале. В чем ошибка?

программирование математика паскаль

Нужно составить программу для вычисления суммы всех двузначных нечетных чисел, именно массив! Сумма должна быть равна 2475, а у меня 2573, в чем ошибка?!
program example_1;
const n=10;
Var A: Array [11..99] of Integer;
i,s: Integer;
Begin
for i:=1 to n do
s:=0;
for i:=1 to n do
if A[i] mod 2 <> 0 then
s:=s+A[i];
Writeln ('s=',s);
Readln
End.

Примечание:
Без имени 14.05.2012, 19:13:50
for i:=1 to n do
for i:=1 to n do


нет, не в этом ошибка

Примечание:
Без имени 14.05.2012, 19:15:52
if A[i] mod 2 <> 0 then 'nj xnj pyfxbn?

типа нечетные

Примечание:
Без имени 14.05.2012, 19:14:47
A: Array [11..99]
for i:=1




это куда записывать то?

Примечание:
Без имени 14.05.2012, 19:19:04 Сообщить о нарушении История изменений
попробуй
program example_1;
const n=10;
Var A: Array [11..99] of Integer;
i,s: Integer;
Begin
s:=0;
for i:=11 to n do
begin
if A[i] mod 10 > 0 then s:=s+A[i];
end
Writeln ('s=',s);
Readln
End.


i - это порядковый номер, for i:=11 to n do не будет верным поэтому
но попробовала, все равно не получается(

Примечание:
anishin5 (Александр Анишин) 14.05.2012, 19:19:48 Сообщить о нарушении

нужен на turbo

Примечание:
Ant1973 14.05.2012, 20:33:37 Сообщить о нарушении История изменений
1. Вы нигде не заполняете массив, поэтому при обращении к A[i], в ответ Вы получаете совершенно случайное значение.
2. Массив тут вообще нафиг не нужен. Достаточно так:
for i:=11 to 99 do
if i mod 2 <> 0 then ...



а сумму как записать?
Ответы:
попробуй
program example_1;
Var A: Array [10..99] of Integer;
i,s: Integer;
Begin
s:=0;
for i:=10 to 99 do a[i]=i;
for i:=10 to 99 do
begin
if A[i] mod 2 > 0 then  s:=s+A[i];
end
Writeln ('s=',s);
Readln
End.
program Ints;
uses SysUtils, Dialogs;
1. Вы нигде не заполняете массив, поэтому при обращении к A[i], в ответ Вы получаете совершенно случайное значение.
2. Массив тут вообще нафиг не нужен. Достаточно так:
for i:=11 to 99 do
if i mod 2 <> 0 then ...


12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.