Массивы..

[Artimbulidor]

Здраствуйте участники форума.Нужна помощь в решении массива в паскале ...заранее благодарю.

[MalexG]

var
  B: array[1..15] of integer;
  Nmax, Nmin: integer;
  D: real;
  i: byte;
  ...
Nmax := B[1];
Nmin := B[1];
for i := 2 to 15 do
begin
  if Nmax < B[i] then
    Nmax := B[i];
  if Nmin > B[i] then
    Nmin := B[i];
end;
D := exp(Nmin) + cos(Nmax);
writeln('D = ', D);

[Artimbulidor]

Спасибо большое !!!!а что такое bate я просто первый раз сталкиваюсь с этим тегом??а не могли бы вы показать как эта программа будет выгледить на блок схеме......

[alex_fcsm]

Тип Byte является наименьшей формой целого числа, занимая 8 битов (1 байт) памяти.

Он поддерживает только положительные целых числа от 0 до 255.

[Artimbulidor]

ааааа вот оно что ...а я обычно писал integer(((

[Artimbulidor]

Великие форумчанины !!! нарисуйте пож...блок схему..