Câu 1 cho dãy số nguyên gồm n phân tử a1, a2,….a12 với a1, a2 ……an và n nhập từ bàn phím
Viết chương trình tìm phần tử lớn nhất
Câu 2 xây dựng chương trình con để tính độ dài của 1 vecto có tọa độ (x,y)
Giúp e vs ạ e đang cần gấp bây h
C ơn nhìu
Câu 1 cho dãy số nguyên gồm n phân tử a1, a2,….a12 với a1, a2 ……an và n nhập từ bàn phím
Viết chương trình tìm phần tử lớn nhất
Câu 2 xây dựng chương trình con để tính độ dài của 1 vecto có tọa độ (x,y)
Giúp e vs ạ e đang cần gấp bây h
C ơn nhìu
var a: array[1..100] of integer;
i, n: byte;
max: integer;
begin
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write(‘nhap phan tu thu ‘,i,’: ‘);
readln (a[i]);
if i=1 then max:=a[1]
else if a[i]>max then max:=a[i];
end;
writeln (‘phan tu lon nhat la: ‘, max);
readln
end.
câu 1:
uses crt;
var a: array[1..100] of integer;
i,n,max: integer;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
begin
write (‘nhap phan tu thu ‘,i,’: ‘); readln (a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln (‘phan tu lon nhat la: ‘,max);
readln;
end.