//c++
#include <iostream>
#include <cmath>
#include <ctime>
using namespace std;
signed main() {
srand(time(NULL));
setlocale(LC_ALL, "Rus");
int matrix[5][5];
long int pr = 1;
cout << "Сгенерированная матрица: " << endl;
for (int i = 0; i < 5; i++) {
for (int j = 0; j < 5; j++) {
matrix[i][j] = rand() % 15;
cout << matrix[i][j] << " ";
if (matrix[i][j] % 2 != 0)
pr *= matrix[i][j];
}
cout << endl;
cout << "\nПроизведение нечетных элементов: " << pr << endl;
return 0;
var
t : array of double;
i, n, mincount, midUp, midDown : integer;
mid : double;
begin
write('Введите кол-во элементов массива :');
readln(n);
randomize;
setlength(t, n);
mincount:=0;
for i:=0 to n-1 do begin
t[i] := random(10)/10;
write(t[i]:1:1,' ');
if t[i]<0.3 then inc(mincount);
end;
writeln('');
writeln('Кол-во элементов <0.3 =',mincount);
writeln('---------------- задача 2 --------------');
mid:=0;
t[i] := random(10)*100 +random(10)*10 +random(10);
mid:=mid+t[i];
write(t[i]:0:0,' ');
mid:=mid/n;
midUp:=0; midDown:=0;
if t[i]<mid then inc(midDown);
if t[i]>mid then inc(midUp);
writeln();
writeln('Средняя з/п = ',mid:1:1);
writeln('Кол-во работников с з/п выше средней =', midUp);
writeln('Кол-во работников с з/п ниже средней =', midDown);
end.
//c++
#include <iostream>
#include <cmath>
#include <ctime>
using namespace std;
signed main() {
srand(time(NULL));
setlocale(LC_ALL, "Rus");
int matrix[5][5];
long int pr = 1;
cout << "Сгенерированная матрица: " << endl;
for (int i = 0; i < 5; i++) {
for (int j = 0; j < 5; j++) {
matrix[i][j] = rand() % 15;
cout << matrix[i][j] << " ";
if (matrix[i][j] % 2 != 0)
pr *= matrix[i][j];
}
cout << endl;
}
cout << "\nПроизведение нечетных элементов: " << pr << endl;
return 0;
}
var
t : array of double;
i, n, mincount, midUp, midDown : integer;
mid : double;
begin
write('Введите кол-во элементов массива :');
readln(n);
randomize;
setlength(t, n);
mincount:=0;
for i:=0 to n-1 do begin
t[i] := random(10)/10;
write(t[i]:1:1,' ');
if t[i]<0.3 then inc(mincount);
end;
writeln('');
writeln('Кол-во элементов <0.3 =',mincount);
writeln('---------------- задача 2 --------------');
mid:=0;
for i:=0 to n-1 do begin
t[i] := random(10)*100 +random(10)*10 +random(10);
mid:=mid+t[i];
write(t[i]:0:0,' ');
end;
mid:=mid/n;
midUp:=0; midDown:=0;
for i:=0 to n-1 do begin
if t[i]<mid then inc(midDown);
if t[i]>mid then inc(midUp);
end;
writeln();
writeln('Средняя з/п = ',mid:1:1);
writeln('Кол-во работников с з/п выше средней =', midUp);
writeln('Кол-во работников с з/п ниже средней =', midDown);
end.