Viết công thức nhập vào dãy số và in ra màn hình dãy số đó số lượng phần tử nhập từ bàn phím mong mọi người giải dùm em ạ mai em thi rồi
2 câu trả lời
program oken;
uses crt;
var a: array [1..100] of integer;
i,n: byte;
begin
clrscr;
write('Nhap so phan tu cua mang: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']: ');
readln(a[i]);
end;
write('Cac gia tri cua mang: ');
for i:=1 to n do
write(a[i],' ');
readln;
end.
uses crt;
var
n,i,min:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so phan tu cua day:');readln(n);
for i:=1 to n do
begin
write('nhap a[',i,']:');readln(a[i]);
end;
min:=a[1];
for i:=1 to n doif a[i]<min then min:=a[i];
write('gia tri nho nhat cua day so la:',min);
readln;
end.