Question

Cho mảng 1 chiều A gồm n phần tử(n=<200) được nhập từ bàn phím. Viết chương trình nhập vào các phần tử của mảng

A. Hiển thị các số đó ra màn hình

B. Thực hiện đếm xem có bao nhiêu phần tử là số chẵn. Tính tổng giá trị của chúng và hiển thị kết quả ra màn hình

C. Tìm phần tử lớn nhất của mảng và in ra chỉ số của nó

Answer 1

uses crt;

var a:array[1..200]of integer;

i,n,max,t,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do

write(a[i]:4);

writeln;

dem:=0;

t:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin

inc(dem);

t:=t+a[i];

end;

writeln('So phan tu chan: ',dem);

writeln('Tong cac phan tu chan: ',t);

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('Gia tri lon nhat cua mang la: ',max);

writeln('Chi so cua no la: ');

for i:=1 to n do

if max=a[i] then write(i:4);

readln;

end.