Tin học

Thanh Duy
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 15:35

C

Bình luận (0)
Nguyễn Thái Sơn
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 15:36

A

Bình luận (0)
Nguyễn Khải Minh
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 15:39

Var a:array[1..200] of real;

i,n,dem:integer;

s,tbc:real;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

s:=0;

For i:=1 to n do

Begin

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

s:=s+a[i];

End;

tbc:=s/n;

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.

Bình luận (0)
giabaoo
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 14:07

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

i,n,s,dem:integer;

tb:real;

begin

write('Nhap so luong phan tu n = ');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 3 = 0) and (a[i] > 0) then

begin

s:=s+a[i];

dem:=dem+1;

end;

tb:=s/dem;

write('trung binh cac so duong chia het cho 3 la ',tb:10:2)

readln;

end.

Bình luận (0)
Thanh Duy
Xem chi tiết
20. Nguyễn Tô Bảo Ngân 8...
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 12:56

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

i,n:integer;

begin

write('Nhap so luong phan tu n = ');readln(n);

for i:=1 to n do

begin

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

end;

writeln('Cac so chia het cho 3 la ');

for i:=1 to n do

if a[i] mod 3 = 0 then write(a[i],'   ');

readln;

end.

Bình luận (1)
20. Nguyễn Tô Bảo Ngân 8...
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 12:57

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

i,n,s:integer;

begin

write('Nhap so luong phan tu n = ');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 s:=s+a[i];

write('Tong cac so chan la ',s);

readln;

end.

Bình luận (0)
Trọng Nhân
Xem chi tiết
Kiều Vũ Linh
5 tháng 5 2022 lúc 13:10

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

i,n,s,s1:integer;

begin

write('Nhap so luong phan tu n = ');readln(n);

for i:=1 to n do

begin

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

end;

writeln('Cac so vua nhap la ');

for i:=1 to n do

write(a[i],'   ');

for i:=1 to n do

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

for i:=1 to n do

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

writeln('Tong cac so nguyen duong trong day la ',s);

write('Tong cac so le la ',s1);

readln;

end.

Bình luận (2)
20. Nguyễn Tô Bảo Ngân 8...
Xem chi tiết
Bao tom12
5 tháng 5 2022 lúc 11:48

program ct; uses crt; var i,n,s:integer; A:array[1..100] of integer; begin clrscr; write(‘nhap n:=’);readln(n); for i:=1 to n do begin write(‘nhap mang A[‘,i,’]:=’);readln(A[i]); end; for i:=1 to n do if A[i] mod 2=0 then writeln(‘cac so chan la:’,A[i]); s:=0; for i:=1 to n do if A[i] mod 2=1 then s:=s+A[i]; writeln(‘tong cac so le la:’,s); readln end.

Bình luận (3)
Bao tom12
5 tháng 5 2022 lúc 11:52

program ct;
uses crt;
var i,n,s:integer;
A:array[1..100] of integer;
begin clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end:
 for i:=1 to n do
if A[i] mod 2=0 then writeln(‘cac so chan la:’,A[i]);
s:=0;
for i:=1 to n do if A[i] mod 2=1 then s:=s+A[i];
writeln(‘tong cac so le la:’,s);
readln
end.

Bình luận (5)
Kiều Vũ Linh
5 tháng 5 2022 lúc 13:12

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

i,n,s:integer;

begin

write('Nhap so luong phan tu n = ');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 s:=s+a[i];

write('tong cac so chan la ',s);

readln;

end.

Bình luận (0)
Mỹ Duyên
Xem chi tiết