câu 1: tìm giá trị lớn nhất của dãy số(gợi ý tương tự ví dụ 3 sgk trang 75).
2 câu trả lời
program ct;
uses crt;
var i,n,max:integer;
A:array [1..100] of integer;
begin
clrscr;
write('nhap do dai day so:'); readln(n);
writeln(' nhap cac phan tu cua day so');
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
writeln('gia tri max',max);
readln;
end.
Program tim_max ;
Uses crt ;
Var i,n,max: integer ;
A: array [1..150] of integer ;
Begin
Write('nhap so luong phan tu cua day so , 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('gia tri lon nhat cua day so la:', max);
Readln
End.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
