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

Question

Помогите пожалуйста задание, надо код для паскали.Дан одномерный массив,найти сумму всех четных элемент массива,кратных заданному числу.

Comments

сколько значений в массиве?

---

числа в массив водит пользователь и сам комп?

Answer 1

Const 
n=100;
var
i,m,s:integer;
com:array[1..n] of integer;
begin 
randomize;
readln(s);
for i:=1 to n do begin com[i]:= random(100);
if com[i] mod s =0 then s:=s+com[i]
 end;
 writeln(s);
end.

Comments

это если числа водятся случайным оброзом если будет вводить юзер то замените строчку com[i]:= random(100); на readln(com[i]);

---

хорошо

---

также как вы не указали максимальное количество значений в массиве то за это отвечает строчка n=100; просто замените число 100 на то которое вам нужно