Nhập mảng một chiều gồm m số nguyên ( 0<m<50). Viết chương trìnhthực hiện các công việc sau:a. Nhập mảng từ bàn phím.b. Hiển thị mảng ra màn hình.c. Tổng các phần tửd. Tìm và in số nhỏ nhất cùng số lần xuất hiện của nó trong dãyhuhu mng giúp mình với ạ, dùng #include<stdio.h> mng nhé huhu gấp lắm ạ ngày kia thi...
Đọc tiếp
Nhập mảng một chiều gồm m số nguyên ( 0<m<50). Viết chương trình
thực hiện các công việc sau:
a. Nhập mảng từ bàn phím.
b. Hiển thị mảng ra màn hình.
c. Tổng các phần tử
d. Tìm và in số nhỏ nhất cùng số lần xuất hiện của nó trong dãy
huhu mng giúp mình với ạ, dùng #include<stdio.h> mng nhé huhu gấp lắm ạ ngày kia thi rùi
uses crt;
var a:array[1..50]of integer;
m,n,t,min,vt:integer;
begin
clrscr;
write('Nhap m='); readln(m);
for i:=1 to m do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to m do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to m do
t:=t+a[i];
writeln('Tong cac phan tu la: ',t);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
vt:=0;
for i:=1 to n do
if min=a[i] then inc(vt);
writeln('So nho nhat la: ',min);
writeln('So lan xuat hien la: ',vt);
readln;
end.