bài 3 mọi người giúp e vs
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
NT
3
HN
0
LK
0
BL
0
TX
2
29 tháng 4 2021
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
29 tháng 4 2021
Câu 2:
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln('Xau ',st,' co ',length(st),' phan tu');
readln;
end.
câu 3 đề 15tương tự, có đ/án