Дано 100 целых чисел. Определить сумму тех из них, которые кратны 7.

[Yana Bila]

Уже иду за билетом

[Utkin]

Будете у нас отпишитесь - если с Москвы примерно 2 часа лету.

[Yana Bila]

А если с Киева?

[Serge_Bliznykov]

Яна, чем упражняться в остроумии, давно бы уже написали решение.
Тут же делов на пару минут!!

начните примерно с такого кода:

const N = 100;
var 
  A : array[1..N] of integer;
  i : integer;
  sum : LongInt;
begin
  for i:=1 to N do begin
     Wrte('Введите ',i,'-е число: ');
     Readln(A[i]); 
  end;

  sum := 0;
  for i:=1 to N do
     if (A[i] mod 7 = 0) then   sum := sum + A[i];

  WrieLn('Сумма = ', sum );
  Readln
end.

p.s. А в следущий раз, когда пишете свою ПРОСЬБУ, не забывайте использовать слова "пожалуйста" "помогите", "будьте добры" и т.д. и т.п.

[hon]

Или деньги или наработки!

[Son Of Pain]

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

Или деньги или наработки!

Звучит почти как tits or gtfo