Question

Viết 2 chương trình Pascal: Nhập 10 phần tử và tìm số lớn nhất trong 10 phân tử ấy.

CT1: không sử dụng biến mảng

CT2: sử dụng biến mảng

So sánh 2 ct trên.

Giúp mình nha! Sắp KT học kì tin rồi.

Thanks các bạn nhiều!

Answer 1

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