<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(4,4,-99,99); a.Println(4);
for var r:=0 to 3 do
a.SetRow(r,a.Row(r).OrderBy(t->t).ToArray);
Writeln('*** Отсортированный массив ***'); a.Println(4)
end.
<u>Пример</u>
*** Исходный массив ***
-51 13 46 -81
66 52 -8 -58
-30 7 44 1
12 11 -98 -90
*** Отсортированный массив ***
-81 -51 13 46
-58 -8 52 66
-30 1 7 44
-98 -90 11 12
Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>
Ответ:
10 дорог будет связывать А и К
Объяснение:
Program psck;
vara,b,c: integer;y: real;
begin
a:=7;b:=16;c:=13;y:=(a*a+b*b)/7+c/(a-b);writeln('y = ',y); end.
Var a,b:integer;
begin
readln(a,b);
writeln(a,b);
end.