#include <iostream>
#include <stdlib.h>
#include <cmath>
using namespace std;
int main()
{
const int n = 5;
int a[n][n];
for (int i=0; i < n; i++)
for (int j=0; j < n; j++)
a[i][j] = rand()%100; // заполнение случайными целыми числами
cout << "Massiv: \n";
for(int i = 0; i < n; i++)
{for (int j=0; j < n; j++)
{ cout << a[i][j] << "\t";} // вывод массива на экран
cout << endl;}
int sum1=0;
int sum2=0;
for(int i=0; i< n; i++)
for(int j=0; j< n; j++)
{ if (i == j)
sum1 += a[i][i]; // сумма элементов главной диагонали
if (i == n - j - 1)
sum2 += a[i][j]; // сумма элементов побочной диагонали
}
cout <<"\nSumma elementov glavnoi diag = "<< sum1 << endl;
cout <<"Summa elementov pobochnoi diag = " << sum2 << endl;
cout <<"Raznost summ = " << abs(sum1-sum2) << endl; // выводим абсолютное значение разности сумм
return 0;
}
Program zadacha;
Const n = 10;
Type mas=array[1..n] of integer;
Var s,i,k,d:integer;
m:mas;
Begin
s:=0;
k:=0;
readln(d);
For i:=1 to n do
read(m[i]);
For i:=1 to n do
if m[i]<d then begin
s:=s+m[i];
k:=k+1;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (Это решение для случая если вы вводите сразу весь массив чисел)
Program zadacha;
Const n = 10;
Var s,i,k,d,m:integer;
Begin
s:=0;
k:=0;
readln(d);
for i:=1 to n do begin
readln(m);
if (m < d) then begin
s:=s+m14;
k:=k+1;
end;
end;
writeln('Сумма чисел < d = ',s,' Колиество чисел < d = ',k);
end. (А это решение для того случая когда вы вводите элементы по одному )
это информационная технология работы в сети, позволяющая людям общаться, оперативно получать информацию и обмениваться ею.