like mạnh cho bạn

không phải cách tối ưu không thì hông biết nhưng mà ra đáp án :)) là được nhỉ

2/ program bt;

var N,i:integer;

begin

write('nhap so N'); readln(N);

writeln;

writeln (' bang nhan ', N);

writeln;

for i:=1 to 10 do writeln(N,'x',1:2,'= ', N*1;3); end

readln

end.

Mik chỉ bít làm bài 2 thôi!

program loc_so_le;

uses crt;

var N,y: longint;

begin

Writeln('Nhap so N '); Readln(N);

for y:=1 to N do if (y mod 2) <>0 then Writeln (y,' la so le');

Readln;

end.

Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;

BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .

dài VL

uses crt;

var n,i,max,min:integer;

s:real;

a:array[1..100] of integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

max:=a[1]; min:=a[1];

for i:=2 to n do

begin

if a[i]>max then max:=a[i]

if a[i]<min then min:=a[i];

end;

s:=(max+min)/2;

wrrite('so lon nhat la:',max);

write('so nho nhat la:',min);

write(' trung binh số lớn nhất và số nhỏ nhất là:',s);

readln;

end.

giúp m đó BFF

program tong_chan;
uses crt;
var N,dem:integer;
Tong:longint;
BEGIN
Clrscr;
writeln('Nhap so nguyen N =');
readln(N);
Tong := 0;
dem := 0;
while dem < N do
begin
Tong := Tong + dem*2;
dem := dem + 1;
end;
write('Tong', N, 'so tu nhien chan dau tien la: ',Tong);
readln;
END.

chỗ while dem<N phải ghi là :

while dem<=N mới đúng

Program tính_chia;

Uses crt;

Var i, n, s, a: integer;

Begin

Write('Nhap so n: '); readln(n);

s:=1;

For i:=1 to n do s:=s*i;

a:=0;

For i:=1 to n do a:=a+i;

Writeln('Ket qua phep tinh chia bang: ', s/a :10:2);

readln;

End.

ct1:

program (tự đặt tên);

uses crt;

var max,i,n:integer;

begin

clrscr;

max:=0; i:=1;

while i<=10 do

begin

write('n',i,'='); readln(n);

if n>max then max:=n;

i:=i+1;

end;

write('so lon nhat la:',max);

readln

end.

ct2:

program bt;

uses crt;

var a:array[1..1000] of integer;

max,i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to 10 do

if a[i]>max then max:=a[i];

write('so lon nhat trong cac so la:',max);

readln

end.

Sự khác nhau giữa hai ct:

- Khác nhau về cách khai báo

- Khác nhau ve cách trình bày

Bạn hãy chạy thử chương trình trước nha

pascal hả bn??

mình thấy ở trang 71 SGK có bài tương tự

program Tinh_trung_binh_cong;

uses crt;

var n, dem : integer;

a, TB : real;

begin clrscr;

dem:= 0; TB:=0;

write('Nhap so cac so can tinh n = '); realn(n);

write dem < n do

begin dem:= dem + 1;

write('Nhap so thu ', dem,' = '); realn(a);

TB:= TB + a;

end;

TB:= TB/n;

writeln('Trung binh cua ', n, ' so la = ', TB:10:3);

writeln('Nhan Enter de thoat ...');

readln;

end.