đặt biến min = phần tử đầu tiên, cho chạy vòng lặp từ i=0 đến i<n, xét điều kiện nếu min > phần tử i thì gán min = phần tử i.
đặt 1 biến tạm x;
thêm 2 biến tổng=0, đếm=0;
hồi học cấp 3 mình còn phải làm mấy bài làm cái ô tô chạy từ trái qua phải...khó vãi lều :'>:'>
quan trọng là chương trình chứ thuật toán dễ ợt
học 1 năm trời ít nhất cũng phải biết viết mấy cái vòng lặp với rẽ nhánh này chứquan trọng là thuật toán, có thuật toán rồi viết chương trình dễ ợt
.Mấy đứa bạn tôi cùng học lớp chuyên tin mà giờ hỏi pascal đếch đứa nào biết.Trình cấp cao và trình cấp thấp khác nhau nhiều cái lắm
readln(a,b,c);
if (a*a+b*b-c*c)*(a*a-b*b+c*c)*(b*b+c*c-a*a)=0 then write('tam giac vuong') else write('tam giac thuong');
đại loại thế
var a,b,c:real;
begin
write('nhap a:');readln(a);
write('nhap b:');readln(b);
write('nhap c:');readln(c);
if (a*a+b*b-c*c)*(a*a-b*b+c*c)*(b*b+c*c-a*a)=0 then write('tam giac co 3 canh da nhap la tam giac vuong ')
else write('tam giac co 3 canh da nhap la tam giac thuong');
end;
var a:array[1..n] of real;
i,n,am,duong:integer;
begin
write('n= ');readln(n);
for i:=1 to n do readln(a[i]);
duong:=0;
for i:=1 to n do
if a[i]>0 then duong:=duong+1; {nếu thấy a[i]> thì tăng biến đếm (duong) lên 1 đơn vị}
am:=n-duong; {tính được số giá trị dương của mảng a thì sẽ tìm được số giá trị âm của mảng vì am+duong=n}
end;var a,b,c:array[1..n] of real;
i,j,k,n:integer;
begin
write('n= ');readln(n);
for i:=1 to n do readln(a[i]);
j:=0;
for i:=1 to n do
if a[i]>0 then {nếu a[i]>0}
begin
j:=j+1;
b[j]:=a[i]; {gán giá trị của mảng b bởi a[i]}
end;
k:=0;
for i:=1 to n do
if a[i]<0 then {nếu a[i]<0}
begin
k:=k+1;
c[k]:=a[i]; {gán giá trị của mảng c bởi a[i]}
end;
end;phần mảng quên hết rồi
