Những câu hỏi liên quan
Sơn Võ
Xem chi tiết
Kiều Vũ Linh
24 tháng 2 2022 lúc 10:32

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

i,d1,d2:integer;

Begin

For i:=1 to 100 do

Begin

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

End;

For i:=1 to 100 do

If a[i] mod 2 = 0 then d1:=d1+1

Else d2:=d2+1;

Writeln('So phan tu chan la ',d1);

Write('So phan tu le la ',d2);

Readln;

End.

Bình luận (0)
Nguyễn Lê Phước Thịnh
24 tháng 2 2022 lúc 13:25

uses crt;

var n,i,a[100],dem1,dem2:integer;

begin

clrscr;

readln(n);

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

dem1:=0;

dem2:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

writeln(dem1,' ',dem2);

readln;

end.

Bình luận (0)
Nguyễn Thị Ngọc Minh
Xem chi tiết
Minh Lệ
13 tháng 3 2021 lúc 13:03

Program HOC24;

var a,b,c,d,max: integer;

t: longint;

begin

write('Nhap a; b; c; d: '); readln(a,b,c,d);

t:=a+b+c+d;

writeln('Tong 4 so tren la: ',t); 

max:=a;

if max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

write('So lon nhat cua chung la: ',max);

readln

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
13 tháng 3 2021 lúc 19:55

*Cách khác:

uses crt;

var a,b,c,d,max:integer;

begin

clrscr;

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

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

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

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

writeln('Tong cua 4 so la: ',a+b+c+d);

max:=a;

if max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

writeln('Gia tri lon nhat la: ',max);

readln;

end.

Bình luận (0)
Quỳnh
Xem chi tiết
Minh Lệ
29 tháng 4 2021 lúc 14:33

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.

Bình luận (0)
Lê Thùy Ánh
Xem chi tiết
KhảTâm
14 tháng 5 2021 lúc 16:20

Bài 1:program sothuc;

uses crt;

var a:array[1..10] of real;s,i,j:real;

begin

s:=0;

for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;

for i:=1 to 10 do if a[i]<0 then

for j:=1 to 10 do

begin a[j]:=sqr(a[i]); s:=s+a[j]; end;

writeln('tong binh phuong cac so am la: ',s:2:2); readln;

end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)

Bài 2: 

program soduong;

uses crt;

var a:array[1..100] of integer;s,i,n:integer;

begin

clrscr;

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin

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

if a[i] mod 2 = 0 then s:=s+a[i] end;

writeln('tong so duong trong day la',s:2:0);readln

end.

Bài 3: các số dương mà là số lẻ là sao thế bạn????

Bình luận (0)
 Khách vãng lai đã xóa
Ngọc Nguyễn
Xem chi tiết
Nguyễn Quang Đạt
Xem chi tiết
Nguyên Hưng Trần
26 tháng 7 2021 lúc 20:42

Program Tin_hoc;

uses crt;

var n,i,dem:integer;

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

Begin

clrscr;

readln(n);

dem:=0;

for i:= 1 to n do 

  Begin

  readln(a[i]);

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

  end;

writeln('Day so co ',dem,' so chan');

readln;

end.

Bình luận (0)
Nguyễn Quang Đạt
Xem chi tiết
Nguyên Hưng Trần
22 tháng 7 2021 lúc 20:55

uses crt;

Var i,n,dem:integer;

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

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

dem:=0;

for i:= 1 to n do

  Begin

  write('So thu ',i,' = ');

  readln(a[i]);

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

  end;

Writeln('Day so co ',dem,' so chan');

readln;

End.

Bình luận (0)
Nguyễn Quang Đạt
Xem chi tiết
Nguyên Hưng Trần
22 tháng 7 2021 lúc 20:55

uses crt;

Var i,n,dem:integer;

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

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

dem:=0;

for i:= 1 to n do

  Begin

  write('So thu ',i,' = ');

  readln(a[i]);

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

  end;

Writeln('Day so co ',dem,' so chan');

readln;

End.

Bình luận (0)
Nguyễn Quang Đạt
Xem chi tiết
Nguyên Hưng Trần
22 tháng 7 2021 lúc 20:55

uses crt;

Var i,n,dem:integer;

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

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

dem:=0;

for i:= 1 to n do

  Begin

  write('So thu ',i,' = ');

  readln(a[i]);

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

  end;

Writeln('Day so co ',dem,' so chan');

readln;

End.

Bình luận (0)
phạm quang huy
6 tháng 8 2021 lúc 20:08

uses crt;

var i,n,dem:longint;a:array[1..1000]of longint;

begin

clrscr;

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]);

end;

for i:=1 to n do if(a[i] mod 2=0)then inc(dem);

writeln('co tat ca:',dem,'so chan');

readln;

end.

 

Bình luận (0)
Nguyễn Quang Đạt
Xem chi tiết
Trần Ái Linh
22 tháng 7 2021 lúc 17:02

program im_14424;
uses crt;
var A: array [1..99999] of integer;
i,n,dem : integer;
begin
clrscr;
dem:=0;
write('Nhap vao so phan tu: ',n);
readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu ',i,':');
readln(A[i]);
if (A[i] mod 2 = 0) then dem:=dem+1;
end;
write('So cac so chan la: ',dem);
readln(dem);
end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
22 tháng 7 2021 lúc 18:19

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 a[i] mod 2=0 then inc(dem);

writeln(dem);

readln;

end.

Bình luận (0)