Построить схему машинного алгоритма и составить Паскаль- программу решения задачи с оператора выбора Case по варианту условия, определяемому номером бригады (табл. 7.1). Необходимые значения селектора n для каждой из ветвей вычислять по формуле, приведенной в 4-й колонке таблицы.
Объяснение:
Построить схему машинного алгоритма и составить Паскаль- программу решения задачи с оператора выбора Case по варианту условия, определяемому номером бригады (табл. 7.1). Необходимые значения селектора n для каждой из ветвей вычислять по формуле, приведенной в 4-й колонке таблицы.
.
.
.
.
дпьащатш
Программы на языке Pascal.
Ввод элементов массива с клавиатуры:
program a;
const N=10;
var m: array [1..N] of integer;
i, max: integer;
begin
max:= -32768;
for i:= 1 to N
do begin
readln(m[i]);
if(m[i]>max)
then max:= m[i];
end;
writeln(max);
end.
Заполнение массива случайными числами:
program a;
const N=10;
var m: array [1..N] of integer;
i, max: integer;
begin
randomize;
max:= -32768;
for i:= 1 to N
do begin
m[i]:= random(-32768, 32767);
if(m[i]>max)
then max:= m[i];
end;
writeln(max);
end.
