Блок - схема

[dt-12]

Помогите пожалуйста составить блок-схему по задачам

Program ChetnChiclo;
Var
I, kolvo: Integer;
A: array[1..5] of Integer;
Begin
Writeln (‘Введите элемент массива’);
Kolvo :=0;
For i=1 to 5 do
Begin
Write (A[‘,I,’=’);
Readln (A[i]);
End;
For I:=1 to 5 do
If A[i]>0 then kolvo := kolvo +1;
If kolvo=0 then writeln (‘положительных элементов нет!’)
Else
Begin
If kolvo mod 2 = 0 then writeln (‘Верно! В массиве четное число положительных элементов’)
Else writeln (‘Не верно! В массиве нечетное число положительных элементов’)
End;
Readln;
End.







Program SrednSnach;
Var
I, kolvo: Integer;
Sredn: real;
A : array[1..5] of real;
Begin
Writeln (‘Введите элемент массива’);
Kolvo :=0; {Количество положительных элементов}
Sredn :=0;{Среднее значение положительных элементов}
For I := 1 to 5 do
Begin
Writeln (‘A[‘,I,’]=’);
Readln (A[i]);
End;
For I :=1 to 5 do
If A[i] > 0 then
Begin
Kolvo := kolvo+1;
Sredn := sredn+A[i];
End;
If kolvo=0 then writeln (‘Положительных элементов нет!’)
Else
Begin
Sredn := sredn/kolvo;
Writeln (‘среднее значение положительных элементов = ‘,sredn:2:2);
For I :=1 to 5 do
If A[i]>0 then A[i]:=A[i]-sredn;
Writeln (‘Преобразованный массив:’);
For i:=1 to 5 do
Writeln (‘A[‘,I,’]=’,A[i]:2:2);
End;
Readln;
End.

[Ol'ga_new]

Делать лень, может поможет следующая инф.:
начало и конец программы - овал
условие - ромб
выражение - прямоугольник
ввод-вывод - "кривой" прямоугольник
цикл for - обычно шестиугольник...
ещё соединительные линии.))))))

[Angel-dm]

Смотри в архивах все сделаное лежит----->>>>
Program1.pas_.rar

Program2.pas_.rar

[dt-12]

спасибо большое))