Ответ:
Program n3;
var q,w:integer;
a:array [1..10]of integer;
begin
for q:=1 to 10 do begin
a[q]:=random(95)+5;
writeln(a[q]);
w:=a[q];
if( w mod 2 )=0 then
a[q]:=a[q]*2
else
a[q]:=a[q]*3;
end;
writeln(' ');
for q:=1 to 10 do
writeln(a[q]);
end.
Объяснение:
//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n=');
var a := MatrixRandom(n, n, 0, 10);
println(a);
var d := new System.Collections.Generic.Dictionary<integer, integer>();
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
begin
if d.ContainsKey(a[i, j]) then
d[a[i, j]] += 1
else
d.Add(a[i, j], 1);
end;
var p := d.OrderByDescending(x -> x.Value).First();
println('Чаще всего встречается ' + p.Key + ', ' + p.Value + ' раз');
end.
(1 и 0)=0, (0 или 1)=1 -ответ
ПО это Программное Обеспечение. Его установка запрашивается при установке игры, потому что то ПО что с ней устанавливается является оптимальным для нее (по мнению разработчиков).
