Pascal и одноизмеримый массив =)

[rump]

Товарищи форумчане, искринне нуждаюсь в вашей помощи. В универе задали вроде бы и не трудную програмку составить, а я полный ноль в програмировании. Если можно, можете решить задачку и составить блок-схему?

"Как стану крутым - и вам чем-нибуть помогу =)"

Задача:
В одноизмеримом массиве произвольных чисел А[1..10] найти наибольший элемент с отрицательных.

[VadEr]

Наибольший элемент из отрицательных?

[rump]

да! Написал все, что есть в задании!

[VadEr]

program Massiv;
const N=10;
var
   A :array[1..N] of integer;
   Min :array[1..N] of integer;
   i :byte;
   max :integer;
begin
   Write('A[1..',N,']= ');
   Randomize;
   For i:=1 to N do
     begin {генерируем массив}
       A[i] := Random(21) - 10;
       Write(A[i],' ')
     end;
{Выписываем отрицательные эл-ты}
   Writeln; Write('Min: ');
   For i:=1 to N do
       If A[i] < 0 then
          begin {и запоминаем их во вспомогательный массив}
                Write(A[i],' ');
                Min[i] := A[i]
          end;
{Ищем наибольший из отрицательных}
   Writeln; max := Min[1];
   For i:=2 to N do
       If (Min[i] < 0) and (Min[i] > max) then max := Min[i]
	else if (max >= 0) and (Min[i] < 0) then max := Min[i];
{и выводим результат}
   If max < 0 then Writeln('Max of Min: ',max)
   else Writeln('Maximym of "-" is not found.');
   Readln
end.

Схема прилогается:

[rump]

Огромное спасибо!

[rump]

ЗАКРЫТЬ ТЕМУ! ВСЕМ СПАСИБО!

[Otre4eHHbIu]

A[i] := Random(21) - 10; - почему (21) - 10....????

блок схема там есть)

[Gongled]

Сообщение от Otre4eHHbIu

почему (21) - 10....????

Чтобы генерировать числа из диапазона [-10;10]

[Otre4eHHbIu]

Сообщение от Gongled

Чтобы генерировать числа из диапазона [-10;10]

мне лучше на пальцах, почему в скобках именно (21)?

[i] := random(100); {Range from 0 to 100}, тобишь если 21 - то рандом от 0 до 21.... а если как в проге от 0-10 до 21-10?)

никогда не пользовался рандомом))

[Манжосов Денис :)]

Random(21) - рандом от 0 до 20. 21 исключается