Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Vy Nguyễn Hà Thảo

Theo pascal ạ!! giúp em nha <3 cảm ơn rất nhiều ạ

1. viết chương trình con nhập và xuất một dãy (mảng)số nguyên có n phần tử

2. nhập số k. Tính trung bình cộng của các phần tử trong dãy có giá trị nhỏ hơn hay bằng k

3. xuất và đếm các phần tử là số nguyên tố có trong dãy

Phía sau một cô gái
11 tháng 3 2023 lúc 16:09

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.

Phía sau một cô gái
11 tháng 3 2023 lúc 16:23

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.


Các câu hỏi tương tự
Nhi Uyển
Xem chi tiết
Nguyễn Trần Hồng Ngọc
Xem chi tiết
Sơn Võ
Xem chi tiết
oanh
Xem chi tiết
Bpxi
Xem chi tiết
Lê Trung Nguyên
Xem chi tiết
Lô Minh Quân
Xem chi tiết
Nguyễn Anh Quân
Xem chi tiết
Hiếu Xuân
Xem chi tiết