Guest User

Untitled

a guest
Apr 21st, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.65 KB | None | 0 0
  1. program garsosignalai;
  2. type mas= array[1..5] of integer;
  3.  var i,t,h,n,k:integer; f,g: text; a: mas;
  4.    begin
  5.        assign(f,'duom.txt');
  6.        assign(g,'rez.txt');
  7.        rewrite(g);
  8.        reset(f);
  9.        ReadLn(f,n,k);
  10.           for h:= 1 to n do begin
  11.                for i:= 1 to k do
  12.                Read(f,a[i]);
  13.                a[1]:=(a[1]+a[2]) div 2;
  14.                a[2]:=(a[1]+a[2]+a[3]) div 3;
  15.                a[3]:=(a[2]+a[3]+a[4]) div 3;
  16.                a[4]:=(a[3]+a[4]+a[5]) div 3;
  17.                a[5]:=(a[4]+a[5]) div 2;
  18.                Writeln(g,a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5]);
  19.           end;
  20. close(g);
  21. close(f);
  22. end.
Add Comment
Please, Sign In to add comment