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.

17 tháng 4 2022

Program HOC24;

var  d,N,i: integer;

t: longint;

begin

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

for i:=1 to n do

begin

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

end;

t:=0; d:=0;

for i:=1 to n do

begin

t:=t+a[i];

if a[i]>0 then d:=d+1;

end;

writeln('Tong day so la: ',t);

write('Co ',d,' so nguyen duong');

readln

end.

22 tháng 4 2023

Câu 1: Viết chương trình nhập vào N số nguyên từ bàn phím tính tích các số chia hết cho 3?

program TichSoChiaHetCho3;

var

      n, i, tich: integer;

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

begin

      tich := 1;

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

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 3 = 0 then

            begin

                  tich := tich * a[i];

            end;

      end;

      writeln('Tich cac phan tu chia het cho 3 la: ', tich);

      readln;

end.
Câu 2: Viết chương trình nhập vào N số nguyên từ bàn phím đếm xem có bao nhiêu số chẵn trong các số vừa nhập?

program DemSoChanTrongDay;

var

      n, i, tich: integer;

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

begin

      dem := 0;

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

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 2 = 0 then

            begin

                  dem := dem + 1;

            end;

      end;

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

      readln;

end.
Câu 3: Viết chương trình nhập vào N số nguyên từ bàn phím hiển thị các số có giá trị nhỏ hơn hoặc bằng 20?

program HienThiSoNhoHon20;

var

      n, i: integer;

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

begin

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

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] <= 20 then

            begin

                  writeln(a[i]);

            end;

      end;

      readln;

end.

Câu 2: 

a) Mô tả thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: dem←0; i←1; t←0;

-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất t và dem

-Bước 7: Kết thúc

Câu 2: 

b) uses crt;

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

i,n,t,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t:=0;

dem:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then 

begin

t:=t+a[i];

inc(dem);

end;

writeln('So so chan la: ',dem);

writeln('Tong cac so chan la: ',t);

readln;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.

Em cảm ơn nhiều ạ!

9 tháng 5 2023

Program HOC24;

var i,n,d: integer;

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

begin

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

for i:=1 to n do

begin

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

end;

d:=0;

for i:=1 to n do if a[i] mod 5<>0 then d:=d+1;

write('Co ',d,' so khong chia het cho 5');

readln

end.

17 tháng 5 2021

Program HOC24;

var n,d,i: integer;

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

t: longint;

begin

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

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

d:=0; t:=0;

for i:=1 to n do 

if b[i]>0 then

begin

d:=d+1;

t:=t+b[i];

end;

writeln('Tong cac so duong trong day so la: ',t);

write('Co ',d,' so duong trong day');

readln

end.

7 tháng 6 2021

uses crt;
var b:array[1..100] of longint;
      n,i,d,s:longint;
begin
      clrscr;
      write('n='); readln(n);
      for i:=1 to n do 
            begin
                  write('a[',i,']: '); readln(b[i]);
                  if b[i]>0 then begin
                        inc(d);
                        inc(s,b[i]);
                  end;
            end;
      writeln('Tong cac so duong: ',s);
      writeln('Co ',d,' so duong');
      readln;
end.

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x%2==0) dem++;

}

cout<<dem;

return 0;

}

29 tháng 4 2021

Program HOC24;

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

i,n,d: integer;

begin

write('Nhap N: ');

for i:=1 to n do

begin

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

end;

write('Day vua nhap la: '); 

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

d:=0;

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

write('Co ',d,' so duong');

readln

end.

uses crt;

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

i,n,dem: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 (10<a[i]) and (a[i]<20) then inc(dem);

writeln(dem);

readln;

end.

13 tháng 4 2021

Em cảm ơn ạ!

26 tháng 4 2022

progam bai1;

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

i,n,dem1,dem2 : integer ;

begin

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

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

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

end;

dem1:=0; dem2:=0;

for i:= 1 to n do

begin

if a[i]>0 then dem1:=dem1+1;

if a[i]>0 then dem1:=dem2+1;

end;

write('Cac so nguyen am trong day la:',dem1);

writeln;

write('Cac so nguyen am trong day la:',dem2);

readln;

end.