<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=9;
Writeln('*** Исходная матрица ***');
var a:=new real[n,m];
Randomize;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=Random(-100,100)/10;
a.Println(5,1); Writeln(5*a.ColCount*'-');
var col:=1;
Write('Средние арифметические: ');
while col<=m-1 do begin
Write(a.Col(col).Average:0:2,' ');
col+=2
end;
Writeln
end.
<u>Пример</u>
Количество строк в матрице: 6
*** Исходная матрица ***
9.6 -4.5 0.2 -7.6 5.4 -4.8 -0.1 -8.6 9.3
-3.6 -3.3 -4.6 -4.6 -2.0 -7.3 5.4 5.1 -9.3
3.2 1.0 -8.1 -5.9 -6.1 9.8 -0.7 -2.5 -1.5
-3.0-10.0 -7.4 -6.7 9.6 -2.1 9.3 -4.6 -3.8
9.7 -7.8 3.1 0.9 -3.0 5.4 9.7 2.9 -9.6
-3.3 4.4 -1.7 -5.0 8.5 0.9 -3.9 -3.4 1.3
---------------------------------------------
Средние арифметические: -3.37 -4.82 0.32 -1.85
CLS
N = 18
DATA
42,33,34,35,36,37,38,39,40,41,44,55,65,75,88,90,100,110
DIM
M1(18)
DIM
M2(18)
K = 0
F = 1
READ
M1(1)
PRINT
M1(1);
FOR i =
2 TO N
READ
M1(i)
PRINT
M1(i);
IF M1(1)
< M1(i) AND F = 1 THEN
K = K +
1
M2(K) =
M1(1)
K = K +
1
M2(K) =
M1(i)
F = 0
ELSE
K = K +
1
M2(K) =
M1(i)
END IF
NEXT i
IF F = 1
THEN
M2(N) =
M1(1)
END IF
PRINT
FOR i =
1 TO N
PRINT
M2(i);
<span>NEXT i
</span>
Просто очень краткое описание данного устройства/программы.
Пример.
Главный процессор: КР1810ВМ86. Особенности: тактовая частота - <span>4,77 МГц, совместим с i8086.</span>
Var i,k:integer;
begin
for i:=1000 to 9999 do
if i mod 3=0 then begin
writeln(i);
inc(k);
end;
write('Кол-во таких чисел равно ',k);
<span>end.</span>
Program n1;
var a, b, c, s: longint;
begin
read(c);
repeat
a := c mod 10;
c := c div 10;
s := c;
while s > 0 do
begin
b := s mod 10;
s := s div 10;
if (a = b) then begin
writeln('yes');
a :=77;
break;
end;
end;
if (a = 77) then break
until (c = 0);
if (a <> 77) then
writeln('no');
end.
