Лабораторные работы

@crayzers · Регистрация: 27.11.2009

Студворк — интернет-сервис помощи студентам

Пару дней осталось до сдачи помогите кто чем может… у кого есть уже какието готовые решения или примерные решения……

1. В чем сходство и различие в обращении к скалярной переменной и к элементу массива? Приведите три примера.
2. В чем сходство и различие одномерного и двумерного массива? Приведите не менее трех сходств и различий.
3. Двумерный массив NxN заполнен 0, 1 и 2. Выясните, стоят ли в нем два нуля рядом по горизонтали или вертикали. Напишите программу для решения этой задачи.
4. Проверьте, есть ли в квадратной матрице NxN такая строка, каждый элемент которой больше суммы элементов каждой другой строки. Напишите программу для решения этой задачи.
5. Найдите самый короткий путь между максимальным и минимальным элементами двумерного массива, если разрешается двигаться вправо, влево, вверх, вниз и по диагонали. Напишите программу для решения этой задачи.
6. В двухмерном массиве NxM найдите среднее арифметическое первого столбца и количество элементов в каждом из следующих столбцов, превышающих среднее арифметическое предыдущего столбца. Напишите программу для решения этой задачи.
7. Задан двумерный массив. Найдите сумму элементов первого столбца без одного последнего элемента, сумму элементов второго столбца без двух последних, сумму третьего столбца без трех последних и т.д. Последний столбец не обрабатывается. Среди полученных найдите максимальную сумму. Напишите программу для решения этой задачи.
8. В массиве хранятся натуральные числа из интервала от 10 до 50, сформированные случайным образом. Выведите его на экран построчно, где каждая строка содержит столько звездочек, каково значение соответствующего элемента массива. Напишите программу для решения этой задачи.
9. В одномерном массиве хранятся случайные натуральные числа от 1 до 65. Напечатайте в каждой строке столько звездочек, прижатых вправо, каково значение соответствующего элемента массива. Например, для А = {7, 3, 2, 3, 4} получим:
начало листа * * * * * * * правая граница печати
* * *
* *
* * *
* * * *

Напишите программу для решения этой задачи.
10. Отсортируйте одномерный массив так, чтобы в начале располагались четные элементы в порядке возрастания их значений, а затем - нечетные в порядку убывания их значений. Напишите программу для решения этой задачи.
11. Последовательность элементов задается следующими соотношениями:
для i > 4
Подсчитайте, сколько раз среди первых n элементов последовательность меняет знак. Напишите программу для решения этой задачи.
12. Задана информация об n книгах. О каждой книге известно количество страниц и среднее количество букв на каждой странице. Представьте эту информацию в виде, удобном для обработки на компьютере, и найдите номера книг, количество информации в которых находится между 12 Мб и 16 Мб. Напишите программу для решения этой задачи.
13. Сколько элементов двумерного массива больше любого элемента главной диагонали?
14. Вычислите: s = 2 + 22 + 222 + ... + 222...2. Последнее слагаемое содержит n цифр, где n > 1997. Напишите программу для решения этой задачи.
15. Назовем словом любую последовательность прописынх и строчних букв русского алфавита. Предложение состоит из слов, отделены одним или несколькими пробелами. В конце предложения ставиться точка.
15.1 - Разработать шаблон, который позволит задавать структуру слова. Шаблон должен содержать литералы (символы, задающие свое собственное словесное изображение и мета символы):
15-1-a Для изображения одного любого символа
15-1-б Для изображения строки, состоящей из произвольного, в том числе нулевого колличества символов
15-1-в Для указания символов, которые могут находиться в указанной позиции слова
15-1-г Для указания символов, которые не могут находиьтся в указанной позиции слова
16 В одномерном массиве с четным количеством элементов (2*n) находятся координаты N точек на плоскости. Они расположенность в следующем порядке: x1,y1,x2,y2,x3,y3.... определить номера точек которые могут быть вершинами правильного треугольника.

За ранее спасибо....

Помогите плиз....

@nonamez123 · 29.11.2010, 21:02

6.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program test;
const n=100;
 
   var
      i,j,a,b,sum,c : integer;
      mas : array [1..n,1..n] of integer;
 
begin
sum:=0;
readln(a,b);
 
for i:= 1 to a do
for j:= 1 to b do
mas[i,j]:=random(5);
 
 
for i:= 1 to a do
begin
for j:= 1 to b do
write(mas[i,j]);
writeln;
end;
 
for i:= 1 to a do
sum:=sum+mas[i,1];
 
sum:=sum div a;
 
for i:= 2 to a do
begin
for j:= 1 to b do
if mas[i,j]>sum then inc(c);
writeln;
end;
 
writeln('srednee ',sum);
writeln('elementov >',sum,' : ',c);
readln;
 
end.

@patricksmirnov · 30.11.2010, 00:07

7

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program zadacha7;
uses crt;
const n=100;
var a:array[1..N,1..N] of integer;
stolbec,stroka:integer;
i,j,k,sum,max:integer;
Begin
write('Kolvo_strok= ');
readln(stroka);
write('Kolvo_stolbcov= ');
readln(stolbec);
 
for i:=1 to stroka do
  begin
    for j:=1 to stolbec do
     begin
     a[i,j]:=Random(10);
     write(a[i,j]:3);
     end;
    writeln;
  end;
  sum:=0;
  k:=1;
  max:=0;
for j:=1 to stolbec-1 do
  begin
    for i:=1 to stroka-k do
       begin
        sum:=sum+a[i,j];
 
       end;
       writeln('Summa_v_ ',j ,' = ' ,sum);
       if sum>max then max:=sum;
       sum:=0;
       k:=k+1;
  end;
writeln('max= ',max);
End.

@nonamez123 · 30.11.2010, 02:36

блин, а я уже хотел 7 делать)))

Добавлено через 15 минут
8.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program test;
   var
      i,j : integer;
      mas : array [1..40] of integer;
 
begin
{заполняем массив бредом}
randomize;
for i:=1 to 40 do
mas[i]:=random(50-10+1)+10;
 
{выведем массив на всякие пожарные для сравнения}
for i:=1 to 40 do
write(mas[i],',');
 
writeln;
{если я правельно понял, то нужно каждый элменент представить звёздочками}
for i:=1 to 40 do
begin
for j:=1 to mas[i] do
write('*');
writeln
end;
end.

@Nikkor · 30.11.2010, 11:45

Надеюсь, что верно: 3

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
const
 n=2;
var a:array[1..n,1..n] of integer;
    i,j,g,v:integer;
 
begin
 clrscr;
  for i := 1 to n do    {zapolnenie nXn}
   for j := 1 to n do
    a[i,j] := random(3);
 
  for i:=1 to n do begin {vivod nXn}
   for j:=1 to n do
    write(a[i,j], ' ');
    writeln;
                   end;
v:=0;
g:=0;
 
  for i := 1 to n do
   for j := 1 to n do begin
    if (a[i,j] = 0) and (a[i,j]=a[i+1,j]) then inc(v);
                      end;
  for i := 1 to n do
   for j := 1 to n do begin
    if (a[i,j] = 0) and (a[i,j]=a[i,j+1]) then inc(g);
                      end;
 Writeln;
 if g<>0 then
 Writeln('Stoyat po gorizontali') else writeln('Nestoyat po gorizontali');
 if v<>0 then
 Writeln('Stoyat po vertikali') else writeln('Nestoyat po vertikali');
 
readln;
end.

Добавлено через 4 минуты
4-ая задача... незнаю как сравнить элементы строки вкупе. Могу лишь найти отдельные элементы, которые больше суммы элементов какой-нибудь строки;

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
const
 n=3;
var a:array[1..n,1..n] of integer;
    s:array[1..n] of integer;
    i,j,k,z:integer;
 
begin
 clrscr;
  for i := 1 to n do    {zapolnenie nXn}
   for j := 1 to n do
    a[i,j] := random(5);
 
  for i:=1 to n do begin {vivod nXn}
   for j:=1 to n do
    write(a[i,j], ' ');
    writeln;
                   end;
 for i:=1 to n do
     for j:=1 to n do begin s[i]:=s[i]+a[i,j]; end;
 
 writeln;
 
 z:=0;
 
 for i:=1 to n do
  for j:=1 to n do begin for k:=1 to n do begin
  if a[i,j] > s[k] then inc(z); end; end;
 
writeln(z);
 
readln;
end.

@BadDavil · 30.11.2010, 13:09

16

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program Project1;
const
  n = 50;
var
  a: array[1..n*2] of integer;
  i,i1,i2,i3: integer;
  Function LengthPoint(x1,y1,x2,y2: integer): real;
  begin
    result := sqrt( (x2-x1)*(x2-x1) + (y2-y1)*(y2-y1) );
  end;
begin
  randomize;
  for i := 1 to n*2 do
      a[i] := random(100);
 
 
  for i1 := 1 to n-2 do
    for i2 := i1 + 1 to n-1 do
      for i3 := i2 + 1 to n do
        begin
          if (LengthPoint(a[i1*2-1],a[i1*2],a[i2*2-1],a[i2*2])=LengthPoint(a[i1*2-1],a[i1*2],a[i3*2-1],a[i3*2])) and //длины сторон равны
             (LengthPoint(a[i1*2-1],a[i1*2],a[i2*2-1],a[i2*2])=LengthPoint(a[i2*2-1],a[i2*2],a[i3*2-1],a[i3*2]))  //длины сторон равны
             then
              writeln('Point1: xy(', a[i1*2-1], ',', a[i1*2], '); ',
                      'Point2: xy(', a[i2*2-1], ',', a[i2*2], '); ',
                      'Point3: xy(', a[i3*2-1], ',', a[i3*2], ');');
        end;
end.

@nonamez123 · 30.11.2010, 18:13

4.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
program test;
const n=100;
 
type mass=array [1..n,1..n] of integer;
 
   var
      i,j,a,sum,b : integer;
      mas : mass;
      summ : array [1..n] of integer;
 
begin
randomize;
write('vvedite razmer massiva AxB ');
readln(a);
 
for i:= 1 to a do
begin
for j:= 1 to a do
mas[i,j]:=random(50);
end;
 
for i:= 1 to a do
begin
for j:= 1 to a do
write(mas[i,j]:4);
writeln;
end;
 
for i:= 1 to a do
begin
sum:=0;
for j:= 1 to a do
sum:=sum+mas[i,j];
summ[i]:=sum;
end;
 
writeln;
for i:= 1 to a do
write(summ[i]:4);
 
writeln;
b:=0;
for i:= 1 to a do
begin
sum:=0;
for j:= 1 to a do
if mas[i,j]>summ[i] then inc(b);
summ[i]:=b;
end;
 
for i:=1 to a do
if summ[i]=a then writeln(i,') v stolbike da')
else writeln(i,') takih net');
readln;
 
end.

@BadDavil · 01.12.2010, 15:01

9-ая

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program Project1;
const
  n = 65;
var
  a: array[1..n] of integer;
  i,
  max    : integer;
 
 
  Function Space(c: char; len: integer): string;  //ñîçäàåì îäíîòèïëóþ ñòðîêó èç ñèìâîëîâ
  var
    r: string;
    j: integer;
  begin
    r:='';
    for j:=1 to len do
      r:=r+c;
    result:=r;
  end;
 
  Function lPad(s: string; c:char; len: integer): string; //äîáèâàåì ñëåâà ñòðîêó ñèìâîëàìè
  var
    j: integer;
    r: string;
  begin
    r:=s;
    for j:=length(s) to len do
      r:=c+r;
    result:=r;
  end;
 
begin
  randomize;
  for i := 1 to n do
    a[i] := random(20);
 
  max := a[1];
  for i := 1 to n do
    if a[i]>a[1] then
      a[1] := a[i]; //íàõîäèò ìàêñèìàëüíûé ýëåìåíò ïî êîòîðîìó áóäåì âûðàâíèâàòü
 
 
  for i := 1 to n do
      writeln(lpad(Space('*',a[i]),' ',max));
end.

Добавлено через 41 минуту
10:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program Project1;
const
  n = 20;
var
  a: array[1..n] of integer;
  i,j,
  i_max,
  i_min    : integer;
  r        : integer;
begin
  randomize;
  for i := 1 to n do
    a[i] := random(20);
 
  i_min := 1;
  i_max := n;
  while i_min<>i_max do
    begin
      if (a[i_min] mod 2) = 0 then inc(i_min) //åñëè ÷èñëî ÷åòíîå, òî ïåðåõîäèì ê ñëåäóþùåìó
      else //åñëè íå ÷åòíîå, òî âòîðîé ïðîõîä ñ êîíöà
        begin
          if (a[i_max] mod 2) <> 0 then dec(i_max)  //Åñëè ÷èñëî íå ÷åðíîå, òî ïðåõåäèì ê ñëåäóþùåìó
          else  //à âîò ýòîò ñëó÷àé, êîãäà â íà÷àëå ÷èñëî íå ÷åòíîå, à â êîíöå ÷åòíîå... ò.å. íóæíî ïîìåíÿòü èõ ìåñòàìè
            begin
              r:=a[i_max];
              a[i_max] := a[i_min];
              a[i_min ]:= r;
            end;
        end;
    end;
 
  i_min := i_min-1; //ïîñëåäíèé ÷åòíûé ýëåìåíò
  for i := 1 to i_min-1 do
    for j := i+1 to i_min do
      if a[i]>a[j] then
        begin
          r:=a[i];
          a[i] := a[j];
          a[j]:= r;
        end;
 
  for i := i_max to n-1 do
    for j := i+1 to n do
      if a[i]<a[j] then
        begin
          r:=a[i];
          a[i] := a[j];
          a[j]:= r;
        end;
 
  for i := 1 to n do
      writeln(a[i]);
end.

Добавлено через 1 час 31 минуту
5:
принцип волны...
в точку максимума кидается камень... и по принципу расхождения волны в окружающих элементах заполняются шаги по мере увеличения...

SetSetkaStep - рекурсия (вызывает сама себя) пока не дойдет до точки минимума.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
program Project1;
const
  n = 20;
var
  a: array[1..n,1..n] of integer;
  s: array[0..n+1,0..n+1] of integer;    //сетка с шагами
  i,j     : integer;
  i_min,j_min,  //координаты минимального
  i_max,j_max: integer;  //координаты макс
  min,max: integer;
  step_c: integer;
 
  Procedure SetSetkaStep(Step, stop_i, stop_j: integer);
  var
    sub_i,
    sub_j: integer;
  begin
    for sub_i := 1 to n do
      for sub_j := 1 to n do
        begin
          if s[sub_i,sub_j] = -1 then //не обработано
            //если хоть в одной ячейке рядом есть значение с предидущим шагом, то проставляем новый шаг
            if (s[sub_i-1,sub_j-1]=Step-1) or
               (s[sub_i-1,sub_j  ]=Step-1) or
               (s[sub_i-1,sub_j+1]=Step-1) or
               (s[sub_i,  sub_j-1]=Step-1) or
               (s[sub_i,  sub_j+1]=Step-1) or
               (s[sub_i+1,sub_j-1]=Step-1) or
               (s[sub_i+1,sub_j  ]=Step-1) or
               (s[sub_i+1,sub_j+1]=Step-1) then s[sub_i,sub_j] := step;
        end;
    if s[stop_i,stop_j]=-1 then //еще не обработали то к чему шли запускаем дальше, но со следующим шагом
      SetSetkaStep(Step+1, stop_i, stop_j)
  end;
begin
  randomize;
  for i := 0 to n+1 do
    for j := 0 to n+1 do
      begin
        if (i>=0) and (i<=n) and
            (j>=0) and (j<=n) then
                a[i,j] := random(20);
        s[i,j] := -1;
      end;
 
  i_min := 1;
  j_min := 1;
  i_max := 1;
  j_max := 1;
  min := a[i_min,j_min];
  max := a[i_max,j_max];
  for i := 1 to n do
    for j := 1 to n do
      begin
        if a[i,j] < min then
          begin
            i_min := i;
            j_min := j;
            min := a[i_min,j_min];
          end;
        if a[i,j] > max then
          begin
            i_max := i;
            j_max := j;
            max := a[i_max,j_max];
          end;
      end;
 
  //идем от минимума к максимому, но можно и наоборот, смотря где задать 0 в сетке шагов
  s[i_max,j_max] := 0;
  SetSetkaStep(1, i_min, j_min); 
 
  i := i_min;
  j := j_min;
  step_c := s[i,j];
  while (i <> i_max) or (j <> j_max) do
    begin
      WriteLn('шаг:', step_c-s[i,j], '; Элемент:', a[i,j], '; i:', i, '; j:', j);
 
      if s[i-1,j-1] = s[i,j]-1 then
        begin i:=i-1; j:=j-1; end
      else if s[i-1,j] = s[i,j]-1 then
        begin i:=i-1; j:=j; end
      else if s[i-1,j+1] = s[i,j]-1 then
        begin i:=i-1; j:=j+1; end
      else if s[i,j-1] = s[i,j]-1 then
        begin i:=i; j:=j-1; end
      else if s[i,j+1] = s[i,j]-1 then
        begin i:=i; j:=j+1; end
      else if s[i+1,j-1] = s[i,j]-1 then
        begin i:=i+1; j:=j-1; end
      else if s[i+1,j] = s[i,j]-1 then
        begin i:=i+1; j:=j; end
      else if s[i+1,j+1] = s[i,j]-1 then
        begin i:=i+1; j:=j+1; end;
    end;
  WriteLn('шаг:', step_c-s[i,j], '; Элемент:', a[i,j], '; i:', i, '; j:', j);
end.

Добавлено через 8 минут
13:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program Project1;
const
  n = 20;
var
  a: array[1..n,1..n] of integer;
  i,j     : integer;
  min     : integer;
  count   : integer;
 
begin
  randomize;
  for i := 1 to n do
    for j := 1 to n do
        a[i,j] := random(20);
 
  //Больше любого элемента => больше минимального элемента
  min := a[1,1];
  for i := 1 to n do
    if a[i,i] < min then min :=a[i,i];
 
  count := 0;
  for i := 1 to n do
    for j := 1 to n do
      if (i<>j) then   //не учитываем главную диагональ
        if a[i,j]>min then inc(count);
 
  WriteLn('Количество: ', Count);
end.

Добавлено через 26 минут
14:
магия чисел

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program Project1;
const
  n = 1998;
var
  b: array[1..9999] of byte; //для каждой цифры своя ячейка
  i,
  per: integer;
begin
  per := 0;
  for i:=n downto 1 do
    begin
      b[i] := ( i*2 + per ) mod 10;
      per  := ( i*2 + per ) div 10;
    end;
  write('Число для n=',n,': ');
  for i:=1 to n do
    write(b[i]);
  writeln;
end.

Добавлено через 17 минут
12:

удобный формат - это CSV.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program Project1;
const
  n = 10;
type
  tbook = record
    pCount: integer;   //количество страниц
    Average: integer;  //среднее значение букв
  end;
 
var
  book: array[1..n] of tBook;
  i   : integer;
  c   : string;
begin
  randomize;
  for i:=1 to n do
    begin
      book[i].pCount :=  random(1000);
      book[i].Average := random(500);
    end;
 
  writeln('НомерКниги,КоличествоСтраниц,СреднееКоличествоБукв');
  for i:=1 to n do
    writeln(i, ',', book[i].pCount, ',', book[i].Average);
  writeln;
 
  c:='';
  Write('Номера книг, количество информации в которых находится между 12 Мб и 16 Мб: ');
  for i:=1 to n do
    if (book[i].pCount*book[i].Average/1024/1024 > 12) and
        (book[i].pCount*book[i].Average/1024/1024 < 16) then
      begin
        write(c,i);
        c:=',';
      end;
  writeln;
end.

Новые блоги и статьи Все статьи Все блоги /
Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .

Лабораторные работы

Решение

Решение

Решение

@crayzers 0 / 0 / 0 Регистрация: 27.11.2009 Сообщений: 5

	Лабораторные работы 29.11.2010, 20:41. Показов 6453. Ответов 7 Метки нет (Все метки) Пару дней осталось до сдачи помогите кто чем может… у кого есть уже какието готовые решения или примерные решения…… 1. В чем сходство и различие в обращении к скалярной переменной и к элементу массива? Приведите три примера. 2. В чем сходство и различие одномерного и двумерного массива? Приведите не менее трех сходств и различий. 3. Двумерный массив NxN заполнен 0, 1 и 2. Выясните, стоят ли в нем два нуля рядом по горизонтали или вертикали. Напишите программу для решения этой задачи. 4. Проверьте, есть ли в квадратной матрице NxN такая строка, каждый элемент которой больше суммы элементов каждой другой строки. Напишите программу для решения этой задачи. 5. Найдите самый короткий путь между максимальным и минимальным элементами двумерного массива, если разрешается двигаться вправо, влево, вверх, вниз и по диагонали. Напишите программу для решения этой задачи. 6. В двухмерном массиве NxM найдите среднее арифметическое первого столбца и количество элементов в каждом из следующих столбцов, превышающих среднее арифметическое предыдущего столбца. Напишите программу для решения этой задачи. 7. Задан двумерный массив. Найдите сумму элементов первого столбца без одного последнего элемента, сумму элементов второго столбца без двух последних, сумму третьего столбца без трех последних и т.д. Последний столбец не обрабатывается. Среди полученных найдите максимальную сумму. Напишите программу для решения этой задачи. 8. В массиве хранятся натуральные числа из интервала от 10 до 50, сформированные случайным образом. Выведите его на экран построчно, где каждая строка содержит столько звездочек, каково значение соответствующего элемента массива. Напишите программу для решения этой задачи. 9. В одномерном массиве хранятся случайные натуральные числа от 1 до 65. Напечатайте в каждой строке столько звездочек, прижатых вправо, каково значение соответствующего элемента массива. Например, для А = {7, 3, 2, 3, 4} получим: начало листа * * * * * * * правая граница печати * * * * * * * * * * * * Напишите программу для решения этой задачи. 10. Отсортируйте одномерный массив так, чтобы в начале располагались четные элементы в порядке возрастания их значений, а затем - нечетные в порядку убывания их значений. Напишите программу для решения этой задачи. 11. Последовательность элементов задается следующими соотношениями: для i > 4 Подсчитайте, сколько раз среди первых n элементов последовательность меняет знак. Напишите программу для решения этой задачи. 12. Задана информация об n книгах. О каждой книге известно количество страниц и среднее количество букв на каждой странице. Представьте эту информацию в виде, удобном для обработки на компьютере, и найдите номера книг, количество информации в которых находится между 12 Мб и 16 Мб. Напишите программу для решения этой задачи. 13. Сколько элементов двумерного массива больше любого элемента главной диагонали? 14. Вычислите: s = 2 + 22 + 222 + ... + 222...2. Последнее слагаемое содержит n цифр, где n > 1997. Напишите программу для решения этой задачи. 15. Назовем словом любую последовательность прописынх и строчних букв русского алфавита. Предложение состоит из слов, отделены одним или несколькими пробелами. В конце предложения ставиться точка. 15.1 - Разработать шаблон, который позволит задавать структуру слова. Шаблон должен содержать литералы (символы, задающие свое собственное словесное изображение и мета символы): 15-1-a Для изображения одного любого символа 15-1-б Для изображения строки, состоящей из произвольного, в том числе нулевого колличества символов 15-1-в Для указания символов, которые могут находиться в указанной позиции слова 15-1-г Для указания символов, которые не могут находиьтся в указанной позиции слова 16 В одномерном массиве с четным количеством элементов (2*n) находятся координаты N точек на плоскости. Они расположенность в следующем порядке: x1,y1,x2,y2,x3,y3.... определить номера точек которые могут быть вершинами правильного треугольника. За ранее спасибо.... Помогите плиз.... 0