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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
21 tháng 2 2022
uses crt;
var a:array[1..15]of integer;
n,i,k:integer;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
readln(k);
kt:=false;
for i:=1 to n do
if a[i]=k then
begin
kt:=true;
break;
end;
for i:=1 to n do write(a[i]:4);
writeln;
if (kt=true) then writeln('Trong mang co ton tai phan tu co gia tri la K')
else writeln('Khong ton tai phan tu co gia tri la k');
readln;
end.
H
1
25 tháng 6 2021
uses crt;
var a:array[1..1000]of integer;
n,i,k,min,vt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n=0 then writeln('Moi ban nhap lai')
else begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
writeln;
min:=a[1];
vt:=1;
for i:=1 to n do
if min>a[i] then
begin
min:=a[i];
vt:=i;
end;
writeln('So nho nhat la: ',min,' tai vi tri: ',vt);
write('Nhap k='); readln(k);
for i:=1 to n do
if i<>k then write(a[i]:4);
end;
readln;
end.
NP
0
BV
0
ML
17 tháng 4 2022
Program HOC24;
var d,N,i: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0; d:=0;
for i:=1 to n do
begin
t:=t+a[i];
if a[i]>0 then d:=d+1;
end;
writeln('Tong day so la: ',t);
write('Co ',d,' so nguyen duong');
readln
end.
uses crt;
var a:array[1..42] of real;
i,n,dem:integer;
nn:real;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
nn:=a[1];
for i:=1 to n do
if nn>a[i] then nn:=a[i];
for i:=1 to n do
if nn=a[i] then write(i:4);
writeln;
dem:=0;
for i:=1 to n do
if a[i]>=8 then inc(dem);
writeln(dem);
readln;
end.
em chịu ạ