Помогите с домашкой по Информатике, кто шарит в Паскале. Задание такое:"Найти сумму всех чётных элементов массива, кратных заданному числу"

Вот я сделал, но что-то не прёт, работает, но сумму не находит. По-моему она находио кол-во чисел в массиве, но не всегда.
Вот что я сделал:
Program E1;
Const n=6;
Var a:Array [1..n] of integer; i,k,b:integer;
begin Randomize;
writeln('Введите заданное число');
readln(k);
b:=0;
for i:=1 to n do
a[i]:=random(3);
for i:=1 to n do
write(a[i],' ');
if (a[i]mod k=0) and (a[i] mod 2=0) then b:=b+i;
writeln(b);
readln;
end.

загвозка в этой строке

if (a[i]mod k=0) and (a[i] mod 2=0) then b:=b+i;

попробуй сначала посчитать сумму всех чётных, и вообще просто может быть такое, что числа не кратны 6. Попробуй сам заполни массив какой-нить фигнёй.

Программист из меня хреновый, но по-моему должно быть так:

Ты уверен, что на четность нужно проверять a[i]? По-моему проверять нужно i (если я не прав, подправь код).

2LS да не, по ходу программист из тебя нормальный, суть понял, тока с i mod 2=0 просчитался. Итак, мой вариант

Const n=6;
Var a:Array [1..n] of integer; i,k,b:integer;
begin
Randomize;
writeln('Введите заданное число');
readln(k);
b:=0;
for i:=1 to n do
a[i]:=random(9)+1;
for i:=1 to n do
begin;
write(a[i],' ');
if (a[i]mod k=0) and (a[i] mod 2=0) then
inc(b);
end;
writeln(b);
readln;
end.

LS Ты чо ? Нехрена I проверять ? Это типа счётчик циклов !?

Блин, а найти то нужно сумму, а не количество . Или опять напутал :?
Тогда так:

if (a[i]mod k=0) and (a[i] mod 2=0) then
b:=b+a[i];

Zеrg
Мне показалось, что проверять нужно не значение элемента, а его номер в массиве

b=b+a[i] и всё, что тут париться

ласт-релиз

Const n=6;
Var a:Array [1..n] of integer; i,k,b:integer;
begin
Randomize;
writeln('Введите заданное число');
readln(k);
b:=0;
for i:=1 to n do
a[i]:=random(9)+1;
for i:=1 to n do
begin;
write(a[i],' ');
if (a[i]mod k=0) and (a[i] mod 2=0) then
b=b+a[i];
end;
writeln(b);
readln;
end.

я вообще не пойму зачем размер массива делать через константу меня всегда это бесило!! ДАЁШЬ ДИНАМИЧЕСКИЕ МАССИВЫ!!!

Zеrg
Полностью поддерживаю!!!

короче Final Version:

Const n=6;
Var a:Array [1..n] of integer; i,k,b:integer;
begin
Randomize;
writeln('Введите заданное число');
readln(k);
b:=0;
for i:=1 to n do
a[i]:=random(9)+1;
for i:=1 to n do
begin;
write(a[i],' ');
if (a[i]mod k=0) and (a[i] mod 2=0) then
b:=b+a[i];
end;
writeln(b);
readln;
end.

предлагаю вот такую прогу, препод афигеет наверно

#include "stdafx.h"
#define N 5

int _tmain(int argc, _TCHAR* argv[])
{
int array[N]={1,2,3,6,10};
int s=0;
int k;
scanf("%d",&k);

for(int i=0;i<N;s+=array[i++]%(k%2 ? k*2 : k) ? 0 : array[i-1]);

printf("%d",s);
}

Ой народ, как вы все здесь запарились. Извеняюсь что долго не появлялся, девахе у кореша диск резал.

Короче перед этой строчкой "if (a[i]mod k=0) and (a[i] mod 2=0) then b:=b+i; " надо было вставить "for i:=1 to n do ".
И саму строчку "if (a[i]mod k=0) and (a[i] mod 2=0) then b:=b+i; " исправить на "if (a[i]mod k=0) and (a[i] mod 2=0) then b:=b+a[i]; ".

Но, но ВСЕМ, ВСЕМ, ВСЕМ ОГРОМНОЕ СМАСИБО ЗА ПОМОЩЬ.

synapse

Так а Енто в чём?
Это Бейсиком пахнет

нифига подобного. си или си++ это.

А по моему С++. Или я ошибаюсь?

Мне тоже задали создать массив на Паскале, а не могу разабраться в задании 2 мес. уже прошло. Помогите ПЛЗ.

Задание
Создать массив, что содержит номера рядов, упорядоваченных при повышениипарных элементов в массиве К (9:9) целых чисел.

Вот. Т.к. здание на укр. то переводил, по моему все так.

мдя уж...... Перевёл бы ты на нормальнуй русский, именно понятный руссский язык. Повышениипарных это вообще как ?

Юрий

От С++ здесь только объявление переменных в "for"...К сожалению, не удалось избавиться от второго обращения к массиву, тормозить будет %)

printf - это C#, а в C++ - cout