uses crt;
var a:array[1..5]of integer;
i,max:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to 5 do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
uses crt;
var a:array[1..5]of integer;
i,max:integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to 5 do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Giúp mình với, mai mình thi rồi huhu. Hãy hoàn thành chương trình nhập mảng N số nguyên từ bàn phím và in ra màn hình số lớn nhất, số nhỏ nhất, số phần tử chẵn lẻ của mảng (N được nhập từ bàn phím)
Hãy viết chương trình nhập vài 10 số nguyên từ bàn phím và in ra màn hình số lớn nhất . Cho biết số lớn nhất đó có phải là số chẵn không? Giúp mik với ạ ! Mik đang cần gấp ! Cảm ơn trước !
viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình số lớn nhất ? (sử dụng biến mảng )
Viết chương trình in ra màn hình giá trị lớn nhất của dãy số n số nguyên được nhập từ bàn phím
Viết chương trình nhập n số từ bàn phím, in ra màn hình số lớn nhất, số nhỏ nhất, vị trí các số đó
Viết chương trình nhập N số nguyên vào từ bàn phím, in ra màn hình giá trị lớn nhất và tổng các giá trị của N số đã nhập vào.
viết chương trình nhập vào một mảng A gồm n số nguyên (n được nhập từ bàn phím)
in ra màng hình mảng số nguyên vừa nhập mỗi phần tử cách nhau ba khoảng trắng
tìm và in ra màn hình giá trị lớn nhất có trong mảng A vừa nhập. GIÚP EM VỚI MN ƠI!
viết chương trình nhập vào 20 số nguyên từ bàn phím và in ra màn hình số nhỏ nhất
Mn ơi giúp em với ạ :((
Viết chương trình nhập vào ba số nguyên mũ bình phương từ bàn phím. In ra màn hình trung bình cộng của ba số đó