Дамп всех задач

Pascal/03.11.16/Program1.pas

@@ -0,0 +1,21 @@
+var
+  a: array[1..30] of integer;
+  i, k, ki, kmax, kimax: integer;
+
+begin
+  for i := 1 to 30 do begin a[i] := random(10);write(a[i], ' '); end;
+  writeln();
+  kmax := 0;
+  kimax := 0;
+  for i := 1 to 29 do 
+  begin
+    ki := i;
+    k := a[i] + a[i + 1];
+    if k > kmax then 
+    begin
+      kmax:=k;
+      kimax:=ki;
+    end;
+  end;
+  writeln(kimax, ':= ', kmax);
+end.

Pascal/03.11.16/Program10.pas

@@ -0,0 +1,18 @@
+const
+  N = 30;
+
+var
+  a: array [1..N] of integer; 
+  i, j, min: integer;
+
+begin
+  Randomize();
+  for i := 1 to N do begin a[i] := Random(0, 100);write(a[i], ' '); end;
+  writeln();
+  min:=100;
+  for i := 1 to N do 
+  begin
+    if (a[i] > 20) and (min > a[i]) then min := a[i];
+  end;
+  writeln(min);
+end.

Pascal/03.11.16/Program11.pas

@@ -0,0 +1,23 @@
+const
+  N = 4;
+
+var
+  a: array [1..N, 1..N] of integer; 
+  i, j: integer;
+  d: real;
+
+begin
+  Randomize();
+  for i := 1 to N do begin for j := 1 to N do begin a[i][j] := Random(5);write(a[i][j], ' '); end;writeln(); end;
+  writeln();
+  d:=0;
+  for i := 1 to N do 
+  begin
+    for j := 1 to N do 
+    begin
+      d:=d+a[i][j];
+    end;
+  end;
+  d:=d/N;
+  writeln(d);
+end.

Pascal/03.11.16/Program12.pas

@@ -0,0 +1,19 @@
+const
+  N = 30;
+
+var
+  a: array [1..N] of integer; 
+  i, j: integer; 
+  s: real;
+
+begin
+  Randomize();
+  for i := 1 to N do begin a[i] := Random(0, 100);write(a[i], ' '); end;
+  writeln();
+  j := 0;
+  for i := 1 to N do begin j := j + a[i]; end;
+  s := j / N;
+  j := 0;
+  for i := 1 to N do begin if a[i] > s then begin j := j + 1 end; end;
+  writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: ', s, ' <20><><EFBFBD>-<2D><>: ', j);
+end.

Pascal/03.11.16/Program13.pas

@@ -0,0 +1,17 @@
+const
+  N = 30;
+
+var
+  a: array [1..N] of integer; 
+  i, j, x: integer;
+
+begin
+  Randomize();
+  for i := 1 to N do begin a[i] := Random(125);write(a[i], ' '); end;
+  x:=Random(5);
+  writeln('x:= ',x);
+  j:=0;
+  for i:=N downto 1 do begin if a[i]=x then j:=i; end;
+  if j = 0 then writeln('none') else
+  writeln(' ',j);
+end.

Pascal/03.11.16/Program14.pas

@@ -0,0 +1,23 @@
+const
+  N = 30;
+
+var
+  a: array [1..N] of integer; 
+  i, k, max, max2: integer;
+
+begin
+  Randomize();
+  for i := 1 to N do begin a[i] := Random(9);write(a[i], ' '); end;
+  writeln();
+  k := 0;
+  max := 0;
+  max2 := 0;
+  for i := 1 to N do 
+  begin
+    if a[i] > max then begin
+      max2 := max;
+      max := a[i];
+    end;
+  end;
+  writeln(max2);
+end.

Pascal/03.11.16/Program2.pas

@@ -0,0 +1,18 @@
+var
+  a: array[1..30] of integer;
+  i, k, ki, kmax, kimax: integer;
+
+begin
+  for i := 1 to 30 do begin a[i] := random(10);write(a[i], ' '); end;
+  writeln();
+  kmax := 0;
+  kimax := 0;
+  for i := 1 to 29 do 
+  begin
+    if a[i] = a[i + 1] then     
+      k := k + 1 
+    else k := 1;              
+    if k > kmax then kmax := k;
+  end;
+  writeln(kimax, ':= ', kmax);
+end.

Pascal/03.11.16/Program4.pas

@@ -0,0 +1,22 @@
+var
+  a: array[1..10, 1..20] of integer;
+  i, j, sum, ssum, ssumk: integer;
+
+begin
+  for i := 1 to 10 do begin write(i, ': ');for j := 1 to 20 do begin a[i, j] := random(10);write(a[i, j], ' '); end;writeln; end;
+  writeln();
+  ssum := 9999;
+  for i := 1 to 10 do 
+  begin
+    sum := 0;
+    for j := 1 to 20 do 
+    begin
+      sum := sum + a[i, j];
+    end;
+    if sum < ssum then begin
+      ssum := sum;
+      ssumk := i;
+    end;
+  end;
+  writeln(ssumk, ': ', ssum);
+end.

Pascal/03.11.16/Program8.pas

@@ -0,0 +1,22 @@
+const
+  N = 30;
+
+var
+  A: array[1..N] of integer; 
+  i, x, y: integer; 
+  s: real;
+
+begin
+  Randomize();
+  for i := 1 to N do begin A[i] := Random(160, 200);write(A[i], ' '); end;
+  x:=0;
+  y:=0;
+  for i := 1 to N do 
+  begin
+    if A[i]>180 then begin
+      x:=x+1;
+      y:=y+A[i];
+    end;
+  end;
+  write('x= ', x, ' y= ', y, ' cp= ', y/x);
+end.

Pascal/03.11.16/Program9.pas

@@ -0,0 +1,22 @@
+const
+  N = 31;
+
+var
+  A: array[1..N] of integer; 
+  i, x, y: integer; 
+  s: real;
+
+begin
+  Randomize();
+  for i := 1 to N do begin A[i] := Random(-20, 20);write(A[i], ' '); end;
+  x := 0;
+  y := 0;
+  for i := 1 to N do 
+  begin
+    if A[i] > 0 then begin
+      x := x + 1;
+      y := y + A[i];
+    end;
+  end;
+  write('x= ', x, ' y= ', y, ' cp= ', y / x);
+end.