Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program garsosignalai;
- type mas= array[1..5] of integer;
- var i,t,h,n,k:integer; f,g: text; a: mas;
- begin
- assign(f,'duom.txt');
- assign(g,'rez.txt');
- rewrite(g);
- reset(f);
- ReadLn(f,n,k);
- for h:= 1 to n do begin
- for i:= 1 to k do
- Read(f,a[i]);
- a[1]:=(a[1]+a[2]) div 2;
- a[2]:=(a[1]+a[2]+a[3]) div 3;
- a[3]:=(a[2]+a[3]+a[4]) div 3;
- a[4]:=(a[3]+a[4]+a[5]) div 3;
- a[5]:=(a[4]+a[5]) div 2;
- Writeln(g,a[1],' ',a[2],' ',a[3],' ',a[4],' ',a[5]);
- end;
- close(g);
- close(f);
- end.
Add Comment
Please, Sign In to add comment