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.

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 3=0 then 

begin

inc(dem);

write(a[i]:4);

end;

writeln;

writeln('So phan tu chia het cho 3 la: ',dem);

readln;

end.

10 tháng 5 2022

👊👅😎

10 tháng 5 2022

Jhg

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

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

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

writeln;

for i:=1 to n do t:=t+a[i];

writeln(t);

readln;

end.

3 tháng 5 2019

uses crt;
var j,tg,s,max,min,i,n:longint;
a:array[1..19] of longint;
s1:real;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tg:=a[i];
a[i]:=a[j];
a[j]:=tg;
end;
for i:=1 to n do
write(a[i],' ');writeln;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln(‘Gia tri trung binh cua cac phan tu la: ‘,s1:0:0);
min:=a[1];max:=a[1];
for i:=2 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
write('Phan tu lon nhat la: ',max,' ','Phan tu nho nhat la: ',min); writeln;
for i:=1 to n do
if (a[i]<>0) and (a[i] mod 2=0) then write(a[i],' ');
readln
end.

uses crt;
var a,b:array[1..100]of integer;
n,i,dem,max,tam,j:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until (0<n) and (n<=100);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so chia het cho 4 la: ');
for i:=1 to n do
if a[i] mod 4=0 then write(a[i]:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i] mod 7=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
max:=b[1];
for i:=1 to dem do
if max<b[i] then max:=b[i];
writeln('So lon nhat chia het cho 7 la: ',max);
writeln('Cac chi so cua no trong day A la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('Day so sau khi sap xep giam dan la: ');
for i:=1 to n do
write(a[i]:4);
readln;
end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

if (n>0) and (n<=100) then

begin

t:=0;

for i:=1 to n do

begin

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

if (a[i] mod 2=0) or (a[i] mod 2=1) then t:=t+a[i];

end;

writeln('tong cac phan tu chan hoac le trong day la: ',t);

end

else writeln('vui long nhap lai');

readln;

end.

uses crt;

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

i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to 10 do t:=t+a[i];

writeln(t);

readln;

end.

25 tháng 5 2022

var i,s,n: integer;

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

begin

readln(n);

for i:=1 to n do begin readln(a[i]); s:=s+a[i]; end;

write(s);

readln

end.