Ответ:
Ответ - в прилагаемом файле.
Объяснение:
Const n=21;
var q:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
q[i]:=random(51)-10;
write(q[i]:4);
end;
writeln;
k:=0; s:=0;
for i:=1 to n do
if q[i]<0 then begin s:=s+q[i]; k:=k+1; end;
writeln('Среднее арифметическое отрицательных элементов = ',s/k);
end.
Пример:
16 -1 -7 5 13 11 -2 -10 36 19 3 34 23 29 12 28 9 39 33 16 -6
Среднее арифметическое отрицательных элементов = -5.2
<span>#include <iostream>
using namespace std;
int main()
{
int n, a, b, c;
cout << "n = ", cin >> n, cout << <span>"\n"</span>;
cout << "a, b, c: ", cin >> a >> b >> c, cout << <span>"\n"</span>;
if (n / 100 == a) cout << <span>"Первая цифра совпадает\n"</span>;
else cout << <span>"Первая цифра не совпадает\n"</span>;
if (n / 10 % 10 == b) cout << <span>"Вторая цифра совпадает\n"</span>;
else cout << <span>"Вторая цифра не совпадает\n"</span>;
if (n % 10 == c) cout << <span>"Третья цифра совпадает\n"</span>;
else cout << <span>"Третья цифра не совпадает\n"</span>;
return 0;
<span>}
Пример:
</span><span>n = 385
a, b, c: 5 8 1
Первая цифра не совпадает
Вторая цифра совпадает
Третья цифра не совпадает</span></span>
Программа:
const n=10;
var a:array[1..n] of integer;
k,p,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(21)-5;
write(a[i]:3);
end;
writeln;
k:=0;
while (k<=n)and(a[k]>=0) do k:=k+1;
if k=n+1 then writeln('В массиве нет отрицательных элементов')
else
begin
p:=1;
for i:=k to n do
if a[i]<0 then p:=p*a[i];
writeln('a[',k,']=',a[k],' p = ',p);
end;
end.
Пример:
3 11 9 11 -1 11 -2 3 3 -5
a[5]=-1 p = -10