var k_nuley, k_sosedey, i : integer;
a : array [1..100] of real;
Begin
read(n);
for i:= 1 to n do read(a[i]);
for i:= 1 to n do Begin
if a[i] = 0 then Begin
k_nuley := k_nuley + 1;
if a[i + 1] < 0 then k_sosedey := k_sosedey + 1;
if a[i - 1] < 0 then k_sosedey := k_sosedey + 1;
end;
end;
write(k_nuley, k_sosedey);
end.
Объяснение:
derzay, bratka
#include <iostream>
using namespace std;
int main()
{
int n,kl=0;double sum = 0;
cin >> n;
int** a;
a= new int* [n];
for (int i = 0; i < n; i++)
a[i] = new int[n];
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n; j++)
a[i][j] = rand() % 10;
}
for (int i = 0; i < n; i++)
{
cout << endl;
for (int j = 0; j < n; j++)
cout<<a[i][j]<<" ";
}
for (int i = 0; i < n; i++)
{
for (int j = 0; j < n - i; j++)
if (a[i][j] != 0)
{
sum += a[i][j]; kl++;
}
}
cout << endl << sum/kl;
}
Объяснение: