Напишите, пожалуйста, две блок-схемы алгоритмов

[Максимус]

Напишите, пожалуйста, две блок-схемы алгоритмов

1.Даны действительные числа а, b. Удвоить эти числа, если а<b, и возвести их в квадрат в противном случае.

Program chisla;
Uses crt;
VAR
a,b:REAL;
BEGIN
Clrscr;
Write('a= '); ReadLn(a);
Write('b= '); ReadLn(b);
IF a<b THEN
BEGIN
a:=a*2;
b:=b*2;
END ELSE
BEGIN
a:=SQR(a);
b:=SQR(b);
END;
WriteLn('a= ',a);
WriteLn('b= ',b);
ReadLn;
END.



2.Даны целое n>0 и последователь¬ность из n вещественных чисел, среди ко-торых есть хотя бы одно отрицательное число. Найти величину наибольшего среди положительных чисел этой последовательности.

CONST
n= 4; {11 n}
VAR
i:INTEGER;
A:ARRAY[1..n] of REAL;
Max:REAL;

BEGIN
Write('A[1]= ');
ReadLn(A[1]);
MAX:=A[1];
FOR i:=2 TO n DO
BEGIN
Write('A[',i,']= ');
ReadLn(A);
IF A>MAX THEN MAX:=A;
END;
WriteLn('MAX= ',MAX);
ReadLn;
END.

 

[MrSTEP]

Вот блок-схемы, надеюсь все видно. Если что не так, говорите, исправим

 

[Максимус]

Вот блок-схемы, надеюсь все видно. Если что не так, говорите, исправим

плохо видно не мог бы ты поразборчевее нарисовать! плиз
ЗА схему спасибо!!!

 

[MrSTEP]

Вот те же схемы, сделанные на компютере. пользуйтесь на здоровье

 

[Максимус]

на чём ты так нарисовал, офигенно получилось

если можешь и есть время перерисуй пожалуйста вот эти схемы

 

[MrSTEP]

щас сделаю

 

[MrSTEP]

Делал в Microsoft Office Visio 2007.
держи. сделал так же, как было в оригинале, то есть отставил условия 1, 2, 3, ввод надписи и т.п..