Cho mang 1 chieu gom cac phan tu nguyen. Viet chuong trinh nhap gtri cho tung phan tu. Ddeems va hien ra nhung phan tu co gtri \(⋮\) 3.
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.
Những câu hỏi liên quan
22 tháng 2 2022
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.
27 tháng 6 2020
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.
6 tháng 3 2020
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.
24 tháng 5 2022
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.
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.