Program HOC24;

var d,i,n: integer;

t: real;

begin

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

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

d:=0; t:=0;

for i:=1 to n do

if a[i] mod 2=0 then 

begin

d:=d+1;

t:=t+a[i];

end;

t:=t/d;

writeln('Co ',d,' so chan trong mang');

writeln('Trung binh cong cac phan tu chan la: ',t:2:5);

write('Cac phan tu trong day theo chieu doc: ');

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

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i;

int main()

{

cin>>n;

for (i=1; i<=n; i++)

cin>>a[i];

for (i=1; i<=n; i++)

if (a[i]==0) 

{cout<<i; break; }

return 0;

}

Tham khảo

B1: Nhập N, dãy số nguyên A, số nguyên k

B2: dem←0; i←1;

B3: Nếu i>N thì chuyển đến B6.

B4: Nếu A[i]>k thì dem←dem+1

B5: i←i+1; Quay lại B3.

B6: In dem ra màn hình và kết thúc.

Câu 1:

program mangsonguyen;

var

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

     i, n: integer;

begin

     writeln('Nhap so phan tu trong mang: ');

     readln(n);

     writeln('Nhap cac phan tu cua mang: ');

     for i := 1 to n do

          readln(a[i]);

     writeln('Mang vua nhap la:');

     for i := 1 to n do

          write(a[i], ' ');

end.

Câu 2: 

program trungbinhcong;

var

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

     i, n, k, sum: integer;

     avg: real;

begin

     writeln('Nhap so phan tu trong mang: ');

     readln(n);

     writeln('Nhap cac phan tu cua mang: ');

     for i := 1 to n do

          readln(a[i]);

     writeln('Nhap so k: ');

     readln(k);

     sum := 0;

     for i := 1 to n do

     begin

          if a[i] <= k then

               sum := sum + a[i];

     end;

     if sum > 0 then

     begin

          avg := sum / n;

          writeln('Trung binh cong cac phan tu co gia tri <= ', k, ' la: ', avg:0:2);

     end

     else

     begin

          writeln('Khong co phan tu nao co gia tri <= ', k);

     end;

end.

Câu 3: 

program DemSoNguyenTo;

var

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

     i, j, n, count: integer;

     laSoNguyenTo: boolean;

begin

     write('Nhap so phan tu cua mang: ');

     readln(n);

     write('Nhap cac phan tu cua mang: ');

     for i := 1 to n do

          readln(a[i]);

     count := 0;

     writeln('Cac so nguyen to trong mang la: ');

     for i := 1 to n do

     begin

          laSoNguyenTo := true;

          for j := 2 to (a[i] div 2) do

          begin

               if (a[i] mod j = 0) then

               begin

                    laSoNguyenTo := false;

                    break;

               end;

          end;

          if laSoNguyenTo and (a[i] > 1) then

          begin

               writeln(a[i]);

               count := count + 1;

          end;

     end;

     writeln('Tong so cac so nguyen to la: ', count);

     readln;

end.

Người ta nói tần số của một số A trong một dãy số A1, A2, …,An là số lần xuất hiện của số A trong dãy A1,A2,…,An.

Ví dụ: Cho dãy số  2 3 4 5 1 3 3 4 3  

Tần số của số 2 là  1. Tần số của số 3 là  4.

Cho một file văn bản có tên TANSO.INP  và có cấu trúc như sau:

Dòng 1:  Chứa số  nguyên N dương  (0<N<=10000)

N dòng tiếp theo: mỗi dòng chứa một số nguyên  Ai (0<Ai<101), các số ghi cách nhau ít nhất một dấu cách trống.

Hãy viết chương trình đọc file trên và tìm tần số xuất hiện của các số trong N số đã cho.  Yêu cầu chương trình chạy không quá 2 giây.

Kết quả xuất ra file văn bản TANSO.OUT   gồm nhiều dòng. Mỗi dòng chứa 2 số  Ai và Ki ghi cách nhau ít nhất một dấu cách trống. Trong đó Ai là số thuộc dãy, Ki là tần số của  số Ai. Ai được xếp tăng dần từ đầu đến cuối file.

#include <bits/stdc++.h>

using namespace std;

long long a[10000],i,n,t;

int main()

{

freopen("avg.inp","r",stdin);

freopen("avg.out","w",stdout);

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

for (i=1; i<=n; i++) t+=a[i];

cout<<fixed<<setprecision(1)<<(t*1.0)/(n*1.0);

return 0;

}

uses crt;

var n,i,k,dem:integer;

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

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln('So phan tu chan trong day so la: ',dem);

write('Nhap so k='); readln(k);

kt:=0;

for i:=1 to n do 

  if a[i]=k then kt:=i;

if kt=0 then writeln('Khong co phan tu nao trong day bang ',k)

else writeln('Trong day co phan tu bang ',k);

readln;

end.