Question

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

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.

Answer 2

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

Answer 3

хорошо

Answer 4

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