K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

29: 

uses crt;

var n,i,j,kt:integer;

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

begin

clrscr;

readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

if a[i]>1 then 

begin

kt:=0;

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

if a[i] mod j=0 then kt:=1;

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

end;

readln;

end.

7 tháng 5 2023

A = [  ]

for i in range(20):

        A.append(int(input("Nhập phần tử thứ " + str(i+1) + ": ")))

tong = sum(A)

trung_binh = tong / len(A)

print("Mảng A =", A)

print("Giá trị trung bình của mảng A là", trung_binh)

type mang=array[1..10]of integer;

function demsochiahet(a:mang):integer;

var dem,i,n:integer;

begin

dem:=0;

for i:=1 to n do 

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

demsochiahet:=dem;

end;

14 tháng 3 2023

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

i,s:integer;

Begin

For i:=1 to 100 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

If a[i] mod 2 <> 0 then s:=s+a[i];

End;

Write('Tong la ',s);

Readln;

End.

15 tháng 3 2023

em cảm ơn ạ <3

2 tháng 3 2022

bucminh

2 tháng 3 2022

lỗi rồi bn, mà giúp j vậy ak

uses crt;

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

i,n,t,j,tam:integer;

begin

clrscr;

readln(n,k);

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

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end;

write(a[k]);

readln;

end.

28 tháng 2 2023

program sonho;

var

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

     k, n, i, min: integer;

begin

     write('Nhap n: ');

      readln(n);

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

     for i := 1 to n do

     begin

          readln(arr[i]);

     end;

     write('Nhap k: ');

     readln(k);

     min := arr[1];

     for i := 2 to k do

     begin

          if (arr[i] < min) then

               min := arr[i];

     end;

     writeln('So nho thu ', k, ' trong day la: ', min);

end.

30 tháng 11 2021

Program HOC24;

var m,n: integer;

Begin

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

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

if m mod n=0 then write(m/n:6:2);

if n mod n=0 then write(n/m:6:2);

if (m mod n=0) or (n mod m=0) then write(m+n);

readln

end.

15 tháng 12 2022

38C (Đề sai 1 chút ở đây không có lệnh in mà chỉ thực hiện công việc ở câu C thôi nhé)

39C

40A