Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL,"Russian");
int k=0,s=0,n;
cout<<"Введите размер массива: ";
cin>>n;
int a[n];
for (int i=0; i<n; i++) cin>>a[i];
cout<<"\nВведите K: ";
cin>>k;
for (int i=0; i<n; i++) if (a[i]%k==0) s+=a[i];
cout<<"\nСумма чисел кратных "<<k<<" = "<<s<<endl;
system("PAUSE");
}
Var
a:array[1..15] of integer;
i:integer;
begin
for i:=1 to 15 do
begin
a[i]:=random(8);
if a[i] mod 2 = 0 then
a[i]:=a[i]+1
else
a[i]:=a[i]*2;
end;
<span>end.</span>