Крипты, Услуги, Выполняй задания чтобы получать денег, как Appbonus, NVuti
Program z1; Var i,n,a,b,c:integer; m: array [1..1000] of integer;Begin write('Введите кол-во чисел - '); readln(n); randomize; a:=0; b:=0; c:=0; for i:=1 to n do begin m[i]:=random(100)-50; write (m[i],' '); end; for i:=1 to n do if (m[i]=0) then a:=a+1; for i:=1 to n do if (m[i]>0) then b:=b+1; for i:=1 to n do if (m[i]<0) then c:=c+1; writeln; writeln ('Кол-во нулей - ',a); writeln ('Кол-во положительных чисел - ',b); writeln ('Кол-во отрицательных чисел - ',c);<span>End.</span>
// PascalABC.NET 3.3.5, сборка 1662 (29.04.2018)
begin
Println($'Среднее арифметическое : {ArrRandomInteger(40,0,20).Println.Where(e-> e.IsOdd).DefaultIfEmpty.Average}')
end.
// FreePascal
var
a: array[0..39] of integer;
i, c, s: integer;
begin
randomize;
for i := 0 to 39 do
begin
a[i] := random(21);
Write(a[i],' ');
if (a[i] mod 2 <>0) then
begin
inc(c);
s := s + a[i];
end;
end;
Writeln;
if c<>0
then Writeln('Среднее арифметическое: ',s/c)
else Writeln(0);
end.
// C++
#include <iostream>
#include <ctime>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int a[40];
double c = 0, s = 0;
srand(time(0));
for (int i = 0; i < 40; i++) {
a[i] = rand() % 21;
cout << a[i] << " ";
if (a[i] % 2 != 0) {
c++;
s += a[i];
}
}
if (c!=0) cout << "\nСреднее арифметическое = " << s / c << endl;
else cout << "\nСреднее арифметическое = 0 " << endl;
system("pause");
return 0;
}
5A316 = 3·160+10·161+5·162
= 3·1+10·16+5·256 = 3+160+1280 = 144310
0hex
=
0dec
=
0oct
0
0
0
0
1hex
=
1dec
=
1oct
0
0
0
1
2hex
=
2dec
=
2oct
0
0
1
0
3hex
=
3dec
=
3oct
0
0
1
1
4hex
=
4dec
=
4oct
0
1
0
0
5hex
=
5dec
=
5oct
0
1
0
1
6hex
=
6dec
=
6oct
0
1
1
0
7hex
=
7dec
=
7oct
0
1
1
1
8hex
=
8dec
=
10oct
1
0
0
0
9hex
=
9dec
=
11oct
1
0
0
1
Ahex
=
10dec
=
12oct
1
0
1
0
Bhex
=
11dec
=
13oct
1
0
1
1
Chex
=
12dec
=
14oct
1
1
0
0
Dhex
=
13dec
=
15oct
1
1
0
1
Ehex
=
14dec
=
16oct
1
1
1
0
Fhex
=
15dec
=
17oct
1
1
1
1