лабораторные работы и задачи по программированию и информатике, егэ по информатике

Для начала рассмотрим не сильно сложную задачу с одномерными массивами в Pascal:

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

const m = 20; var arr: array[1..m] of byte; max_index: byte; i: byte; begin randomize; for i := 1 to m do begin arr[i] := random(100); write (arr[i]:3); end; max_index := 1; for i := 2 to m do if arr[i] > arr[max_index] then begin max_index := i; end; writeln; writeln ('Max = ',arr[max_index]); writeln ('position: ', max_index); end.

Следующую сложную задачу с одномерными массивы следует разобрать подробно.

Сложность этого задания состоит в том, что нужно не просто удалять элементы, значения которых n переменной m требуется, т.к. n — константа и не может быть изменена. Поскольку при «просмотре» массива в цикле while некоторые элементы будут удаляться, то значение m , обозначающее длину массива, будет уменьшаться.