Дана таблица А[1..15]. Найти в таблице среднее значение положительных элементов, а отрицательные элементы заменить числом 0. Составить фрагмент блок-схемы.

1. 
var A: array [1..10] of integer;
i, sum, k: integer;
begin
for i:=1 to 5 do
read(A[i]);
sum:=0;
k:=0;
for i:=1 to N div 2 do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое первой части=', sum/k);
sum:=0;
k:=0;
for i:=5 to 10 do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое второй части=', sum/k);
end.

2. const: N={количество элементов массива}; 
var A: array [1..N] of integer;
i, sum, k: integer;
begin
for i:=1 to N do
read(A[i]);
sum:=0;
k:=0;
for i:=1 to (N div 2) do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое первой части=', sum/k);
sum:=0;
k:=0;
for i:=(N div 2) to N do
sum:=sum+A[i];
k:=k+1;
writeln('Среднее арифметическое второй части=', sum/k);
end.
 

Подавляющему большинству пользователей персональных компьютеров имя Карла Дугласа Энгельбарта вряд ли о чем-то говорит. Но это никак не мешает более чем 1 млрд человек каждый день использовать его творения. При этом одним из самых популярных и востребованных на сегодняшний день является компьютерная мышка.В 1964 году команде доктора Дугласа Энгельбарта было поручено создать ARPANet Network Information Center, предшественник сегодняшнего интернета. Ну и что же, как побочный эффект этого проекта на свет появился первый манипулятор, который получил название компьютерная мышь.

Это уникальное изобретение, без которого сегодня тормозится любая деятельность на компьютере, на самом деле разработали случайно. Существующие тогда манипуляторы (клавиатура, джойстики и световые перья) тормозили процессы оконной среды, поэтому Дуглас быстро придумал дополнение, которое должно было облегчить текущие процессы. А это при потом оказалось гениальным изобретением!