uses crt;
var a,b,c,min:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
writeln('So nho nhat la: ',min);
readln;
end.
uses crt;
var a,b,c,min:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
writeln('So nho nhat la: ',min);
readln;
end.
viet chuong trinh nhap vao tu ban phim diem toan cua 1 mang gom 30Hs.Xet va in ra man hinh nhung HS co diem toan lon hon 6,5
Viet chuong trinh nhap vao 1 mảng gom n phần tử số thực
a) in mảg vua nhập
b) tìm giá trị nhỏ nhất của mảng
c) sap xep mảg tăng dần
CAU 1:
A, Nhap vao so nguyen n ; Tinh tong S= 1+2+3+...+n
B, Nhap vao mot mang gom m so nguyen . Tinh tong cac phan tu cua mang do.
GIUP MINH VOI NHA MOI NGUOI ...
Viết chương trình nhập vào 1 mảng A số nguyên (10 phần tử), sau đó thực hiện các yêu cầu sau:
a) Tìm những số chẵn xuất hiện trong A
2 8 6 -4
b) Tìm số nhỏ nhất(min) có trong mảng A
c) Tính tổng các số chẵn có trong mảng A
S=12
VD : A[1]=7; A[2]=2; A[3]=1; A[4]=8; A[5]=5; A[6]=3; A[7]=11; A[8]=6; A[9]=-4; A[10]=-9.
d) Tìm trên mảng A những số chia hết cho 3.
viết chương trinh nhập tù bàn phím 1 mảng điểm toán của 30 hs.Xét và in ra màn hình những bạn có điểm số lớn hơn 6,5
Viết chương trình nhập n số nguyên từ bàn phím. Đếm các số vừa chia hết cho 2 vừa chia hết cho 3. In kết quả ra màn hình các số thỏa mãn điều kiện trên.
program chia_het;
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write('Nhap so phan tu co trong day:');readln(n);
for i:=1 to n do begin
writeln('Nhap phan tu thu ',i,' cua day:');readln(a[i]);
end;
for i:=1 to n do begin
if (a[i] mod 2=0) and (a[i] mod 3=0)
then writeln('Phan tu chia het cho 2 va 3 la:',a[i])
end;
readln
end.
Chương trình trên đúng k ạ
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;
Viết chương trình pascal nhập vào N phần tử của mảng
a) Nhập gía trị của N phần tử
b) Kiểm tra xem trong mảng có số nguyên tố hay không? Nếu có hãy in số nguyên tố ra
Mong mọi người giúp. Thanks guys so much :33
cách mô tả thuật toán viết chương trinh nhập n số nguyêntừ bàn phím và in ra màng hình số lớn nhất giúp em giải thuật toán với ạ xin cảm ơn