pascal[trung bình cộng]

[yauotsua]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

tính trung bình cộng của các cặp số trong dãy.
ví dụ:
Nhập:
n=4
8 10 6 9
Kết quả:
9
7
8.5
8
9.5
7.5

 

[ontinhoc]

uses crt;

var n,i,j:word;

a:array[1..100] of longint;

tb:real;

begin

clrscr;

write('n = ');readln(n);

for i:=1 to n do read(a[i ]);

readln;

for i:=1 to n-1 do

begin

tb:=0;

for j:=i+1 to n do

begin

tb:=(a[ i]+a[j ])/2;

if round(tb)=tb then writeln(round(tb))

else writeln(tb:1:1);

end;

end;

readln;

end.
chúc bạn học tốt!!!hay nhớ tick