Платные хостинги     Раскрутка сайта     Книги по программированию

Помогите!!!

- Ты хочеш, чтобы мы затебя и блок-схему нарисовали?

- Ладно, держи прогу, а блок-схему сам нарисуеш, это не так уж и сложно... Код program pr;Const  m=4;  n=5;var   A:array[1..m,1..n] of real;   B,C:array[1..n] of real;   S:real;   i,j:integer;Begin     for i:=1 to m do       for j:=1 to n do         begin           write('a[',i,',',j,']=');           readln(a[i,j]);         end;     S:=0;     for i:=1 to n do      begin        for j:=1 to m do          if a[j,i]>0 then s:=s+a[j,i];        s:=s/m;        b[i]:=s;        s:=0;      end;    for i:=1 to n do      c[i]:=b[n-i+1];    for i:=1 to n do      write(b[i]);    writeln;    for i:=1 to n do      write(c[i]);end.highlightSyntax('delphixNGQxO','delphi');

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD