Sub aaa()
Dim r As Range
Set r = Range(Cells(1, 1), Cells(9, 6))
Z = r
kn = 0: kp = 0
For Each a In Z
If a < 0 Then kn = kn + 1
If a > 0 Then kp = kp + 1
Next
Cells(12, 1) = "Положительных" + Str(kp)
Cells(13, 1) = "Отрицательных" + Str(kn)
End Sub
Во вложении рабочая книга MS Excel 2003
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
const
n=8;
begin
var a:=MatrixRandom(n,n,10,90);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:3);
Writeln
end;
var k:=0;
for var i:=0 to n-1 do
if a[i,i].IsEven then Inc(k);
Writeln('k=',k);
end.
Пример
23 32 75 57 27 14 26 53
46 75 17 68 57 60 10 43
76 10 62 83 62 20 89 15
28 36 71 86 67 13 34 46
84 38 56 90 16 40 19 16
15 39 75 15 23 41 23 70
48 17 50 81 82 18 41 13
33 69 39 82 34 31 77 43
k=3
<span>uses crt;
const nmax=100;
var x:array[1..nmax] of integer;
n,m,i,j,k,a,p:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(10);
write(x[i]:4);
end;
writeln;
i:=1;
m:=n;
while i<n-1 do
begin
k:=1;
a:=x[i];
for j:=n downto i+1 do
if x[j]=a then k:=k+1;
if k>2 then
begin
j:=i;
while j<=n do
if x[j]=a then
begin
if j=n then n:=n-1
else
begin
for p:=j to n-1 do
x[p]:=x[p+1];
n:=n-1;
end;
end
else j:=j+1;
end
else i:=i+1;
end;
if n=0 then
begin
exit
end;
if n=m then
write('Все элементы встречены не более 2 раз и не удалены')
else
begin
for i:=1 to n do
write(x[i]:4);
for i:=1 to n-1 do
for j:=i+1 to n do
if(i mod 2=0)and(j mod 2=0) and(x[i]<x[j]) then
begin
a:=x[i];
x[i]:=x[j];
x[j]:=a;
end;
for i:=1 to n do
write(x[i]:4);
end;</span>
Могу скинуть ответы на весь этот тест. ну а в этом вопросе ответ а)
#include <iostream>
using namespace std;
int main() {
int n=10,k=0;
int a[n];
srand(time(NULL));
cout<<"array:"<<endl;
for (int i=0; i<n; i++)
{
a[i]=rand() % 6;
cout<<a[i]<<" ";
}
cout<<endl;
for (int i=0; i<n-1; i++)
if (a[i]==a[i+1]) {
k++;
if (k==1) cout << "Есть: ";
cout<<a[i]<<" ";
}
if (k==0) cout << "нет";
system("pause");
return(0);
}
Пример:
<span>array:
0 5 5 0 2 5 2 4 0 5
Есть: 5 </span>