Những câu hỏi liên quan
Mã Nhân
Xem chi tiết
Hải Hà
Xem chi tiết
my trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 8 2021 lúc 19:15

uses crt;

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

i,n,dem,max,t,min,dem1:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

dem:=0;

max:=-32000;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

dem:=dem+1;

if max<a[i] then max:=a[i];

end;

if dem=0 then writeln('Trong day khong co so chan')

else begin

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

writeln('So chan lon nhat la: ',max);

end;

t:=0;

for i:=1 to n do 

  if i mod 2=1 then t:=t+a[i];

writeln('Tong cac so o vi tri le la: ',t);

min:=maxint;

dem1:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then

begin  

inc(dem1);

if min>a[i] then min:=a[i];

end;

if dem1=0 then writeln('Trong day khong co so le')

else writeln('So le nho nhat la: ',min);

readln;

end. 

Đỗ trung học
Xem chi tiết
Khavid Ngô
15 tháng 3 2021 lúc 20:51

Nguyễn Lê Phước Thịnh
15 tháng 3 2021 lúc 20:52

const fi='dl.pas'

fo='qk.pas'

var f1,f2:text;

i,n,dem,t,dem1,dem2,kt,j:integer;

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

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

dem:=0;

for i:=1 to n do 

  if (a[i] mod 2<>0) and (a[i] mod 7=0) then inc(dem);

t:=0;

for i:=1 to n do

  if (10<=a[i]) and (a[i]<=30) then t:=t+a[i];

dem1:=0;

for i:=1 to n do 

  if (a[i]<0) and (a[i] mod 2<>0) then inc(dem1);

dem2:=0;

for i:=1 to n do 

  if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do 

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

if kt=0 then inc(dem2);

end;

writeln(f2,'So phan tu le chia het cho 7 la: ',dem);

writeln(f2,'Tong cac phan tu thuoc [10,30] la: ',t);

writeln(f2,'So cac phan tu am le la: ',dem1);

writeln(f2,'So phan tu la so nguyen to la: ',dem2);

close(f1);

close(f2);

end.

Nguyễn Thái Phương Thảo
Xem chi tiết
Hải Hà
Xem chi tiết
Phía sau một cô gái
6 tháng 4 2023 lúc 20:41

program Dem;

var

      n, i, count: integer;

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

begin

      writeln('Nhap vao so n: ');

      readln(n);

      writeln('Nhap vao day so: ');

      for i := 1 to n do

      begin

            readln(arr[i]);

      end;

      count := 0;

      for i := 1 to n do

      begin

            if(arr[i] mod 2 = 1) then

            begin

                  count := count + 1;

                  write(arr[i], ' ');

            end;

      end;

      writeln();

      writeln('Tong so phan tu la so nguyen le: ', count);

      readln;

end.

Danh Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2022 lúc 7:23

Bài 1:

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if ((x<0) and (x%2!=0)) t=t+x;

}

cout<<t;

return 0;

}

Đỗ Mai Huệ
Xem chi tiết
doanquynh
9 tháng 9 2015 lúc 14:53

phần lẻ là j

phần nguyên là j

nguyen hai anh
14 tháng 8 2018 lúc 8:47

toan nay la tu trong sach nang cao ra.hihi dung minh dang hoc quyen nay hehe

nguyen hai anh
14 tháng 8 2018 lúc 9:00

minh cau 1 nhe.chi biet lam cau day thoi.

a phan nguyen la -3 phan le la 0.b nguyen 6 phan le 0,1.c nguyen la -2 le la 4/5.d 0va1/8.moi nguoi h dung cho minh nha

Nguyễn Thị Hà Linh
Xem chi tiết