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

var

  a, b, c : real;

begin

  read (a, b,c);

  writeln ((a+b+c)/3);

end.

ответ:

program matrica;

const k=10;

type vector=array[1..k]o byte; masiv=aray[1..k] o vector;

var b: masiv;

procedure vved(n: byte; var a masiv);

var i,j: byte;

begin

randomize;

for i: =1 to n do

for j: =1 to n do

a[i,j]: =0;

for j: =round(n/2) to n do

for i: =n-j+1 to j do

a[i,j]: =random(255);

end;

proceure vuvid(n: byte; : masiv);

var i,j: byte;

begin

for i: =1 to   do

begin

for j: =1 to n do

write(a[i,j]: 5);

riteln;

end;

end;

procedure rahnok(n: byte; a: masiv);

var i,j: byte; s,l: byte;

begin

l: =0;

for j: =1 to round(n/2) do

for i: =j to (n-j+1) do

if (a[i,j] mod 2=0) then l: =l+1;

writeln('kilkist=' l);

подробнее - на -

объяснение:

Uses crt; var x,y: integer; begin read(x); read(y); if x > 0 and y < 0   then write(x*y*2); end.                                                                     число   x   > 0                               /                           \                             /                             \                           /                               \                         да                               нет                         /                         /                                       y < 0           \                 /                     нет               /             /           да (вывести удвоенное)