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. (А это решение для того случая когда вы вводите элементы по одному )
Код на C++:
#include <iostream>
#include <ctime>
using namespace std;
int main()
{
srand(time(NULL));
unsigned long S = 0;
const int N = 10; //Для изменения массива изменять это число
int A[N][N];
for (int i = 0; i < N; i++)
{
for (int j = 0; j < N; j++)
{
A[i][j] = rand() % 100;
cout << A[i][j] << " ";
}
cout << endl;
}
for (int i = 0; i < N; i += 2)
{
for (int j = 0; j < N; j++)
{
S += A[i][j];
}
}
cout << endl << "Sum of even lines " << S << endl;
S = 0;
for (int i = 1; i < N; i += 2)
{
for (int j = 0; j < N; j++)
{
S += A[i][j];
}
}
cout << endl << "Sum of odd lines " << S << endl;
return 0;
}
Объяснение:
Я не знаю, какой размер у массива, но для изменения размера массива надо изменять значение константы N в коде. В первом вложенном цикле мы записываем случайное число от 0 до 99 и сразу же выводим на экран. Потом мы при первого цикла с шагом 2 (0, 2, 4, 6...) находим сумму четных строк. Второй массив для нечетных строк