задача. паскаль. массивы. помогите решить плз

сам делай, лодырь

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

for (i<=2) {
if (a[n] mod k == 0) {
sum=sum+a[n];
i++;
};
n++;
}

Синтаксиса практически не помню, по-моему вместо фигурных скобок в паскале bigin/end, и инкрементирование не так работает, ну да разберетесь если захотите.

И да, конечно:

Задача, элементарнее не придумаешь, у нас девочки с факультета международных отношений такое решают.

:D :D :D

10ть лодырей

var

a:array [1..100] of integer;

n, i, summa :integer;

begin

 summa:= 0;

 write ('До n= ');

 readln (n);



 for i:=1 to n do

  readln (a);



 for i:=1 to n do

  begin

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

  end;



writeln('Sum =', summa); // или writeln('Sum = ' + IntToStr(summa));

end.

Если ошибся - сорри, я давно на делфи не пишу :D

N - лимит

спасибо... не ожидал на столь быстрые ответы) очень благодарен!

Это то понятно сам такие задачи решал на 1 курсе института.

Только не понятно куда пойдет потом этот мусор с дипломами.

Главное, чтобы никто не додумался написать в диплом ТС: "Программист". xxD

Кофейник, главное, чтобы не отчислили.. А то потом из раздела "Куплю-продам сайт" не выгонишь, на военник то надо будет собрать.. 🚬

AndyM. оскарблять то не надо все-таки.

не волнуйтесь уважаемый знаток... я не на программиста учусь)