-
Câu hỏi:
Viết chương trình nhập vào 8 số nguyên rồi tìm max day so đó.
Yêu cầu : Khai tên báo biến mảng dayso, với chỉ số đầu là 1, chỉ số cuối là 20, kiểu dữ liệu số nguyên.
Lời giải tham khảo:
Program cau_2;
Uses crt;
Var max, i : integer;
dayso : array[1..20] of integer;
Begin
Clrscr;
so_chan:=0;
For i := 1 to 8 do
Begin
Write(‘phan tu thu ‘,i,’ la = ‘);
readln(dayso[i]);
End;
Max:=dayso[1];
For i := 2 to 8 do
Begin
If max<dayso[i] then max:=dayso[i];
End;
Writeln(‘So lon nhat day so ‘,max);
Readln; End.
Hãy trả lời câu hỏi trước khi xem đáp án và lời giải
Câu hỏi này thuộc đề thi trắc nghiệm dưới đây, bấm vào Bắt đầu thi để làm toàn bài
CÂU HỎI KHÁC
- Trong Pascal, câu lệnh nào sau đây được viết đúng?
- Trong câu lệnh lặp: for n:= 1 to 6 do begin ... end;Câu lệnh ghép được thực hiện bao nhiêu lần?
- Câu lệnh lặp For ...to ... do có?
- Sau khi thực hiện chương trình dưới đây, giá trị của biến j bằng bao nhiêu?
- Trong Pascal, câu lệnh nào sau đây là đúng?
- Cú pháp đầy đủ của câu lệnh While … do là?
- Hãy cho biết chương trình dưới đây sẽ thực hiện bao nhiêu vòng lặp khi thực hiện đoạn chương trình ?
- Đoạn lệnh dưới đây sẽ cho kết quả là gì?
- Trong Pascal, câu lệnh khai báo biến mảng nào sau đây đúng?
- Khai báo biến mảng: A : array[1..7] of real;.Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]); để gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị?
- Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng?
- Giả sử biến mảng A có 5 phần tử và giá trị của các phần tử lần lượt là 1, 4, 7, 2, 6.Khi thực hiện câu lệnh dưới đây giá trị của biến tb là bao nhiêu?
- Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu?
- Viết chương trình nhập vào 8 số nguyên rồi tìm max day so đó?
