Основы программирования на языке Turbo Pascal. Беляева И.В. - 73 стр.

UptoLike

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

Рубрика:

Задача 16: Подсчитать, сколько раз в массиве встречается элемент, равный K.

Фрагмент программы:

Var

k : integer; {Это число будем искать в массиве}

cnt : integer; {Счетчик (CouNTer) количества элементов, равных K}

…

Begin

{Ввод числа K}

write('Введите K = ');

read(k);

cnt := 0; {В начале подсчета количество элементов,

равных K, обнуляем}

for i := 1 to n do

for j := 1 to m do

if a[i, j] = k then {Если элемент равен K,}

inc(cnt); {то увеличиваем счетчик}

…

Перестановка строк и столбцов

Задача 17. Поменять первый и последний столбцы местами.

Фрагмент программы:

Var

tmp : integer; {Используется для перестановки элементов}

…

for i := 1 to n do {Для всех строк}

begin

tmp := a[i, 1]; {Меняем первый элемент строки}

a[i, 1] := a[i, m]; {с последним}

a[i, m] := tmp;

end;

…

Задача 18. Поменять вторую и третью строки местами.