Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
12 tháng 4 2018 lúc 6:09

Đáp án C

Tuânxb
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
10 tháng 4 2019 lúc 17:00

Đáp án C

Lê Bảo Lâm
Xem chi tiết
Minh Lệ
26 tháng 2 2021 lúc 17:22

Program HOC24;

var d,i,n,x: integer;

t: longint;

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

begin

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

for i:=1 to n do

begin

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

end;

write('Chi so cac phan tu co gia tri bang 0 la: '); 

for i:=1 to n do if a[i]=0 then write(i,' ');

writeln;

d:=0; t:=0;

write('Nhap X: '); readln(x);

for i:=1 to n do if a[i]>x then d:=d+1;

writeln('Co ',d,' phan tu co gia tri lon hon ',x);

if n=20 then

begin

for i:=5 to 20 do t:=t+a[i];

end else write('Du lieu da cho chua du 20 phan tu');

write('Tong cac phan tu co gia tri nam trong doan 5 den 20 la: ',t);

readln

end.

Nguyễn Lê Phước Thịnh
26 tháng 2 2021 lúc 21:28

uses crt;

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

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

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

writeln('Chi so cac phan tu co gia tri bang 0 la: ');

for i:=1 to n do 

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

writeln;

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

dem:=0;

for i:=1 to n do 

  if a[i]>x then inc(dem);

writeln('So phan tu lon hon ',x,' la: ',dem);

t:=0;

for i:=1 to n do 

  if (5<=a[i]) and (a[i]<=20) then t:=t+a[i];

writeln(t);

readln;

end.

27. Nguyễn Chí Thiện
Xem chi tiết
kỳ phan
Xem chi tiết
Nguyễn Lê Phước Thịnh
1 tháng 1 2022 lúc 23:05

a: =average(a2,a3,a4)

Bùi Nam
Xem chi tiết
Trần Đức Hải Phong
25 tháng 12 2023 lúc 16:57

program XuLyDaySo;

var
  N, i, soNguyen, tong, tongLe, max, min, demMax: integer;

begin
  // Nhập số lượng phần tử N
  write('Nhap so luong phan tu N: ');
  readln(N);

  // Khởi tạo các biến
  tong := 0;
  tongLe := 0;
  demMax := 0;

  // Nhập dãy số và thực hiện các phép toán
  for i := 1 to N do
  begin
    write('Nhap phan tu thu ', i, ': ');
    readln(soNguyen);

    // a) Tính tổng các phần tử trong dãy
    tong := tong + soNguyen;

    // b) Tính tổng các phần tử lẻ trong dãy
    if soNguyen mod 2 <> 0 then
      tongLe := tongLe + soNguyen;

    // c) Tìm phần tử lớn nhất, bé nhất trong dãy
    if i = 1 then
    begin
      max := soNguyen;
      min := soNguyen;
    end
    else
    begin
      if soNguyen > max then
        max := soNguyen;
      if soNguyen < min then
        min := soNguyen;
    end;

    // d) Đếm số lượng phần tử có giá trị lớn nhất
    if soNguyen = max then
      demMax := demMax + 1;
  end;

  // In kết quả
  writeln('a) Tong cac phan tu cua day: ', tong);
  writeln('b) Tong cac phan tu le cua day: ', tongLe);
  writeln('c) Phan tu lon nhat trong day: ', max);
  writeln('   Phan tu nho nhat trong day: ', min);
  writeln('d) So luong phan tu co gia tri lon nhat: ', demMax);

  readln;
end.

Văn Công Sỹ
Xem chi tiết
Văn Công Sỹ
22 tháng 7 2021 lúc 12:14

anh chị giải giúp em với ạ, em đang rất cần sự giúp đỡ,  em cảm ơn ạ

 

uchiha sasuke
Xem chi tiết
๖ۣۜHả๖ۣۜI
23 tháng 11 2021 lúc 10:30

C

Nguyên Khôi
23 tháng 11 2021 lúc 10:30

C

Kậu...chủ...nhỏ...!!!
23 tháng 11 2021 lúc 10:30

C

duy anh
Xem chi tiết
ĐINH THỊ HOÀNG ANH
10 tháng 12 2021 lúc 20:43

B

Minh Hồng
10 tháng 12 2021 lúc 20:44

B

Nguyễn Khánh Đan
10 tháng 12 2021 lúc 20:46

B