===== PascalABC.NET =====
begin
var (m, n) := ReadInteger2('Число строк и столбцов:');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
Writeln;
var vc := ArrGen(n, i -> i);
var vr := ArrGen(m div 2, i -> 2 * i + 1);
a.MatrSlice(vr, vc).Println(4)
end.
Замечание: Если компилятор на распознает MatrSlice, следует обновить его версию хотя бы до 3.5.1.2250 от 14.09.19.
Если Вы не имеет такой возможности, используйте альтернативный вариант, но в этом случае будет утрачено "красивое" форматирование результата.
begin
var (m, n) := ReadInteger2('Число строк и столбцов:');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
Writeln;
foreach var i in Range(1, m -1, 2) do
a.Row(i).Println;
end.
Объяснение:
1.
program line_AB;
uses crt;
var L, xa, xb, ya, yb:real;
begin
WriteLn('Найдем длину отрезка АВ по координатам его крайних точек' );
Writeln('Введите координаты точки A');
Write('x = ');ReadLn(xa);
Write('y = ');ReadLn(ya);
Writeln('Введите координаты точки B');
Write('x = ');ReadLn(xb);
Write('y = ');ReadLn(yb);
L:=sqrt(sqr(xb-xa)+sqr(yb-ya));
Write('Длина отрезка AB равна ', L);
readln;
end.
2.
program MultDrob;
uses crt;
var z, mult:real; i, L:Integer;
begin
Write('Введите Z = ');ReadLn(z);
Write('Введите L = ');ReadLn(l);
mult:=z+5/(10);
for i:=1 to l do
mult:=mult*(z+5/(10+i)) ;
Write('Произведение дробей z+5/[10..L] равно ', mult);
readln;
end.
3.
program MultMass;
uses crt;
var A:array[1..10] of real; mult:real; i:Integer;
begin
Randomize;
for i:=1 to 10 do begin
a[i]:=Random(10);
write(a[i]:7:2) end;
WriteLn;
mult:=1;
for i:=2 to 10 do
if a[i] > a[1] then mult:=mult*a[i] ;
if mult>1 then Write('Произведение элементов болших первого равно ',mult)
else Write('Произведение элементов болших первого равно ' ,0);
readln;
end.
1 задание
16:8=2
22:2 =11
11-2=9
ищем то слово где 9 символом
и это в Соликамск