Алгоритм-конечная совокупность точно заданных правил решения некоторого класса задач или габор инструкций,описывающих порядок действий исполнителя для решений определенной задачи.
Алгорим это конечный габори правил который определяет последовательность операций для решений конкретного множества задач и обладает пятью важными чертами:конечностями,определенность,ввод,вывод,эффективность
Циклический,генетический разветдчющийся.
Утром надо вставать почистить зубы застелить кровать и позавтракать а потом пойти в школу.
function IsPositive(a:integer):boolean; begin result:=(a>-1); end;
procedure work; var min, max, count:integer; begin count:=0; min:=m[0]; max:=0; for i:=0 to 14 do begin if IsPositive(m[i]) then begin inc(count); if m[i]>max then max:=m[i]; if m[i]<min then min:=m[i]; end; end; writeln('MAX: ', max); writeln('MIN: ', min); writeln('Count: ', count); end;
begin for i:=0 to 14 do begin write('n: '); readln(m[i]); end;
Объяснение:
Алгоритм-конечная совокупность точно заданных правил решения некоторого класса задач или габор инструкций,описывающих порядок действий исполнителя для решений определенной задачи.
Алгорим это конечный габори правил который определяет последовательность операций для решений конкретного множества задач и обладает пятью важными чертами:конечностями,определенность,ввод,вывод,эффективность
Циклический,генетический разветдчющийся.
Утром надо вставать почистить зубы застелить кровать и позавтракать а потом пойти в школу.
Меняется порядок действий в алгоритме.
Сори прости что смог ч только га вопросы оьветил
var m:array [0..14] of integer; i:integer;
function IsPositive(a:integer):boolean;
begin
result:=(a>-1);
end;
procedure work;
var min, max, count:integer;
begin
count:=0;
min:=m[0];
max:=0;
for i:=0 to 14 do begin
if IsPositive(m[i]) then begin
inc(count);
if m[i]>max then max:=m[i];
if m[i]<min then min:=m[i];
end;
end;
writeln('MAX: ', max);
writeln('MIN: ', min);
writeln('Count: ', count);
end;
begin
for i:=0 to 14 do begin
write('n: ');
readln(m[i]);
end;
work;
readln;
end.