Pascal! найти среднее арифметическое отрицательных элементов массива. заменить на него минимальный элемент.

Var a: array[1..10] of integer;
var i, col, ans:integer;
begin
ans:=0;
col:=0;
for i:=1 to 10 do  
begin  
readln(a[i]); 
if a[i] < 0 then
begin
col:=col+1;
ans:=ans+a[i]; 
end;
end; 
writeln(ans/col);
end.

терминатор начала и конца работы функции

терминатором начинается и заканчивается любая функция. тип возвращаемого значения и аргументов функции обычно указывается в комментариях к блоку терминатора.

операции ввода и вывода данных

в гост определено множество символов ввода/вывода, например вывод на магнитные ленты, дисплеи и т.п. если источник данных не принципиален, обычно используется символ параллелограмма. подробности ввода/вывода могут быть указаны в комментариях.

выполнение операций над данными

в блоке операций обычно размещают одно или несколько (гост не запрещает) операций присваивания, не требующих вызова внешних функций.

блок, иллюстрирующий ветвление алгоритма

блок в виде ромба имеет один вход и несколько подписанных выходов. в случае, если блок имеет 2 выхода (соответствует оператору ветвления), на них подписывается результат сравнения — «да/нет». если из блока выходит большее число линий (оператор выбора), внутри него записывается имя переменной, а на выходящих дугах — значения этой переменной.

вызов внешней процедуры

вызов внешних процедур и функций помещается в прямоугольник с дополнительными вертикальными линиями.

начало и конец цикла

символы начала и конца цикла содержат имя и условие. условие может отсутствовать в одном из символов пары. расположение условия, определяет тип оператора, соответствующего символам на языке высокого уровня — оператор с предусловием (while) или постусловием (do … while).

подготовка данных

символ «подготовка данных» в произвольной форме (в гост нет ни пояснений, ни примеров), задает входные значения. используется обычно для циклов со счетчиком.

соединитель

в случае, если блок-схема не умещается на лист, используется символ соединителя, отражающий переход потока между листами. символ может использоваться и на одном листе, если по каким-либо причинам тянуть линию не удобно.

комментарий

комментарий может быть соединен как с одним блоком, так и группой. группа блоков выделяется на схеме пунктирной линией.

Var N1:array[1..10] of integer;
    N2:array[1..15] of integer;
    R1:array[1..10] of integer;
    R2:array[1..15] of integer;
    min1, min2, max1, max2, i:integer;
    R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
 if R1[i]<min1 then
  begin
  min1:=R1[i];
  R1min:=i;
  end else
   begin
   if R1[i]>max1 then
    begin
    max1:=R1[i];
    R1max:=i;
    end;
   end;
for i:=1 to 15 do
 if R2[i]<min2 then
  begin
  min2:=R2[i];
  R2min:=i;
  end else
   begin
   if R2[i]>max2 then
    begin
    max2:=R2[i];
    R2max:=i;
    end;
   end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
end.