(Tin11) Bài tập kiêu mảng 1 chiều

[chikunni]

[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.

Giúp mình bài này vs
Nhạp vào 1 dãy sồ gồm N phần tử. Viết chương trình
A) Tính trung bình giá trị của dãy số
B) Tìm GTLN và vị trí của nó trong dãy đó

 

[Ngô Trọng Nhân]

uses crt;
var i,n:longint;
tong:int64;
a:array[1..high(integer)] of longint;
dem:longint;
max:longint;
begin
max:=low(longint);
clrscr;
dem:=0;
write('nhap so so hang day so do: ');readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i,' : ');readln(a);
tong:=tong+a;
if a>max then max:=a
end;
writeln('A)');
writeln('Trung binh day so do: ',tong/n:0:2);
writeln('B)');
write('Gia tri lon nhat trong day la so ',max,' va no nam o vi tri: ');
for i:=1 to n do
begin
inc(dem);
if max=a then write(i);
end;
readln;
end.