Конспект лекций по программированию для начинающих. Гладков В.П. - 197 стр.

UptoLike

ВУЗ: 

ПНИПУ | Пермь

Составители: 

Рубрика: 

199
f := true
end
else j := j+1;
if not f
then begin m := m+1;
b1[m] := a[i];
b2[m] := 1
end;
end;
{ Найдем max в массиве b2 }
j := 1; { Пусть пока это будет 1-й элемент }
for i:=1 to m do
if b2[j]<b2[i]
then j := i;
write('Наиболее часто встречается ',b1[j],' цвет глаз')
end.
Упражнения:
1. У каждого из n предпринимателей есть денежный капитал, размер которого
они друг от друга скрывают. Все они хранят деньги в одном банке. Служащие
банка имеют доступ только к следующей информации:
1) сумме капиталов всех предпринимателей, кроме первого;
2) сумме капиталов всех предпринимателей, кроме второго; и так далее;
n) сумме капиталов всех предпринимателей, кроме
n-го.
Определить размер капитала каждого предпринимателя.
2. На n складах хранится товар. Известна сумма хранящегося товара на любых
двух складах вместе. Нужно узнать, сколько товара хранится на каждом складе в
отдельности.
3. В двумерном массиве n·n выбрать такую диагональ, параллельную главной,
сумма элементов которой была бы максимальной.
4. В первой строке двумерного массива
названы животные, во второй строке -
города, в зоопарках которых они содержатся. Например,
Слон Слон Тигр ...
Москва Рим Пермь
Указать названия животных, которые содержатся только в одном заопарке.
5. Вычислить: s=2+22+...+222 ... 2. Последнее слагаемое содержит n цифр, где
n>1997.
6. Двумерный массив n·n заполнен 0,1 и 2. Выяснить, стоят ли в нем два нуля
рядом по горизонтали или вертикали.
7. Задан одномерный массив. Нужно упорядочить только отрицательные его
элементы, оставив положительные на старых местах.
8. Проверить, есть ли
в квадратной матрице n·n такая строка, каждый элемент
которой больше суммы элементов каждой другой строки.
9. В одномерном массиве целых чисел найти максимальный среди элементов,
являющихся четными, и минимальный среди элементов, кратных А. 
                                                199

                                    f := true
                           end
                   else j := j+1;
            if not f
            then begin m := m+1;
                          b1[m] := a[i];
                          b2[m] := 1
                     end;
      end;
      { Найдем max в массиве b2 }
      j := 1; { Пусть пока это будет 1-й элемент }
      for i:=1 to m do
              if b2[j]1997.
   6. Двумерный массив n·n заполнен 0,1 и 2. Выяснить, стоят ли в нем два нуля
рядом по горизонтали или вертикали.
   7. Задан одномерный массив. Нужно упорядочить только отрицательные его
элементы, оставив положительные на старых местах.
   8. Проверить, есть ли в квадратной матрице n·n такая строка, каждый элемент
которой больше суммы элементов каждой другой строки.
   9. В одномерном массиве целых чисел найти максимальный среди элементов,
являющихся четными, и минимальный среди элементов, кратных А.

Страницы