Не могу сообразить в паскале с массивом

[JeeSx]

Пожалуйста помогите сообразить в паскале.
Взялся за задачу: Дано N числа и найти сумму чисел кратных 7.
Мой способ решения задачи, но не могу понять как и что писать в условии, и как найти сумму. =(((
_____________________________

Proram HappyEnd;
uses crt;
var
       B:ARRAY[1..100] of Real;
       i,N,A: Integer;
       Summa: Real;
Begin
 Writeln ('Vvesti kollichestvo chisel');
 readln (N);
     for i:=1 to N do
      begin
        writeln ('Vvesti sami chisla');
        readln (B[i]);
      end;

for i:=1 to N do
 Begin
B[i]:=A;
  If A mod 7=0 then Summa:=A else Summa:=0;
  end;
writeln ('Summa=',Summa:5:0);
readln;
end.

_______________________________

[Alt]

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

если "А" кратно к 7 то сумма превращается в "А", иначе становится равной нулю. тоесть как только встречается элемент, который не кратен к 7, то сумма обнуляется...
делай так:

if a mod 7=0 then summa:=summa+a;

только ПЕРЕД ЦИКЛОМ (в самом начале программы) сделай summa:=0; потому что иногда бывает что начальное значение переменной не равно нулю...
легко-же )
ставь плюсик в репутацию)

[Codemaster_N1]

самое интересное, что люди даже и не понимают, что они полный бред пишут!

Дано N числа и найти сумму чисел кратных 7.

Сам то прочитай, что пишешь. И вот на 100% процентов уверен, что даже если прочитаешь, то будешь считать, что ты всё правильно и понятно написал!

что за N числа? (может N чисел? русский то хоть знаешь?)
и нафига там союз "и"???

[JeeSx]

Сообщение от Alt

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

если "А" кратно к 7 то сумма превращается в "А", иначе становится равной нулю. тоесть как только встречается элемент, который не кратен к 7, то сумма обнуляется...
делай так:

if a mod 7=0 then summa:=summa+a;

только ПЕРЕД ЦИКЛОМ (в самом начале программы) сделай summa:=0; потому что иногда бывает что начальное значение переменной не равно нулю...
легко-же )
ставь плюсик в репутацию)

Спасибо что помог! Как + в репутацию тебе ставить?

[Alt]

Спасибо что помог! Как + в репутацию тебе ставить?

Под моей аватаркой есть такая икнока:

[JeeSx]

Сообщение от Alt

Под моей аватаркой есть такая икнока:

Чтото не вижу повышения твоей репутации. Коментарий нужно было добавлять или это не обезательно?

[Alt]

Сообщение от JeeSx

Чтото не вижу повышения твоей репутации. Коментарий нужно было добавлять или это не обезательно?

Нужно нажать на эту иконку и запустится java-скрипт, в котором надо выбрать пункт "одобряю" и написать причину) но если не можешь разобраться то не делай)

если ты про то, что у меня репутация не повысилась, то так бывает, я не знаю почему))

[ОДИНОЧЕСТВО В СЕТИ]

Что-то не вижу повышения твоей репутации.

Просто при ваших

Сообщений: 3
Репутация:10

Репутация не прибавляется

[JeeSx]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

Просто при ваших

Репутация не прибавляется

Сколько min сообщений нужно, что бы тлругому пользователю + поставить?

[Stilet]

Тема исчерпана. Флуд прекращаем.