Задания уровня 1

Упражнение 1. Найти в массиве элементы, равные числу, заданному пользователем. Подсчитать их количество и вывести номер первого найденного элемента. Массив задается при помощи ввода с клавиатуры.

Begin

writeln(′Ввод исходного массива: ′);

for i:=1 to count do

Begin

write(′элемент №′, i, ′: ′);

readln(m[i]);

end;

a:=0; b:=0;

write(′Введите число для поиска →′); readln(n);

for i:=1 to count do{Поиск элемента, равного n}

if m[i]=n then

Begin

if b=0 then a:=i; {Запомним номер первого элемента, равного n}

b:=b+1; {Увеличить число найденных элементов на 1}

end;

if b=0 then writeln(′Нет таких элементов в массиве′)

Else

Begin

writeln(′Количество элементов массива, имеющих значение ′, n, ′ =′, b:3);

writeln(′Первый элемент имеет номер ′, a:3);

End

End.

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске:<F2> A:\P6PR1

Упражнение 2. Сформировать матрицу случайных чисел и транспонировать ее. При транспонировании элементы матрицы переставляются таким образом, что строки исходной матрицы становятся столбцами транспонированной матрицы. При этом элементы, расположенные на главной диагонали исходной и транспонированной матриц, одни и те же. Операция транспонирования сводится к обмену элементов матрицы, расположенных симметрично относительно главной диагонали.

1. Наберите текст программы:

Program MAS_2;

const row=3; col=row;

var a: array [1..row, 1..col] of integer;

i, j, buf: integer;

Begin

randomize; {Инициализация датчика случайных чисел}

writeln(′Исходная матрица случайных чисел: ′);

for i:=1 to row do

Begin

for j:=1 to col do

Begin

a[i, j]:=random(100); {Случайное значение элемента}

write(a[i, j]:4); {Вывод элемента массива на экран}

end;

writeln;

end;

{Транспонирование матрицы}

for i:=1 to row do{Просмотр всех строк матрицы}

{Просмотр элементов в строке, расположенных выше главной диагонали}

for j:=1 to col do

Begin

buf:=a[i, j]; a[i, j]=a[j, i]; a[j, i]=buf;

end;

writeln(′Результат транспонирования матрицы: ′);

for i:=1 to row do

{Обмен элементов, симметричных относительно главной диагонали}

Begin

for j:=1 to col do write(a[i, j]:4);

writeln;

End

End.

2. Запустите программу на выполнение и проверьте её работу:Ctrl-F9

3. Для просмотра результатов выполненной программы необходимо нажать:Alt-F5

4. Сохраните программу на своем диске:<F2> A:\P6PR2

3. Выполнить самостоятельно: