Блок-схема

Текст программы:

program Odnomer_massiv;

{$APPTYPE CONSOLE}

uses

SysUtils;

const

Nmax=20;

var

i,N,k:integer;

S,sr:real;

a: array [1.. Nmax] of real;

begin

writeln('vvedite kolichestvo elementov massiva');

readln(N);

for i:=1 to N do

begin

writeln('Vvedite ',i,' element massiva');

readln(a[i]);

end;

S:=0;

k:=0;

for i:=1 to N do

begin

if a[i]>0

then

begin

inc(k);

S:=S+a[i];

end;

end;

if k>0 then

begin

sr:=S/k;

writeln('Srednee arifmeticeskoe vseh polojitel`nih elementov massiva= ',sr:0:3)

end

else writeln(‘Net polojitel`nih elemenrov’);

readln;

end.

Двумерные массивы

const

m=10;

n=20;

var

mas: array [1..5,1..m] of real;

mas2: array [1..n,1..m] of integer;

 

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

 

type

mas=array [1..10] of real;

massiv=array[1..5] of mas;

var

dvumer_mas:massiv;

 

или

 

type

mas=array [1..10,1..4] of real;

var

dvumer_mas:mas;