Var
s,i,k:integer;
m:array[1..20]of integer;
begin
write('Введите k: ');
readln(k);
writeln('Массив:');
for i:=1 to 20 do
begin
m[i]:=random(20);
write(m[i],' ');
if m[i] mod k=0 then s:=s+m[i];
end;
writeln;
writeln('Ответ: ',s);
<span>end.</span>
Графическими
Звуковыми
Текстовыми
.....................не верно у тебя
Органы чувств-язык,нос,кожа,уши,глаза
чувств-грусть,радостьи так далее я думаю так