Question

a) if a>b then max:=a; else max:=b;

b) var X: Array[5..10] Of Real;

c) X:=10; while X:=10 do X := X+5;

d) for  i:=1.5 to 10 do m:=m + 1; e) if a>b then max:=a else max:=b; f) var X: Array[5.5..10] Of Real; g) X:=10; while X>10 do X := X+5; h) for  i:=1.5 to 10 do m:=m + 1; III. Hãy viết các câu lệnh, khai báo theo yêu cầu sau: A. Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực. B. Phần tử thứ  5 của mảng A được gán giá trị là 8. C. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên. D. Nhập giá trị cho phần tử thứ 2 trong mảng diem.         IV. Bài tập  Viết chương trình thực hiện các yêu cầu sau: a.    Nhập điểm văn và điểm toán của n học sinh trong một lớp (n nhập từ bàn phím) b.    Tính điểm trung bình của mỗi học sinh (kết quả lấy 1 chữ số thập phân) help với mai ktr ;-;

Answer 1

III:
A: var a:array[1..50]of real;

B: a[5]:=8;

C: var a:array[1..50]of integer;

D: readln(dem[2]);