Question

Câu 1 : hãy viết các câu lệnh trong pascal thực hiện các 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ứ năm của mảng A được gắn giá trị là 8 

c) Viết câu lệnh lặp nhập giá trị cho 50 phần tử trong mảng A và in ra màn hình giá trị của 50 phần tử đã nhập

Câu 2: Viết chương trình tính tổng 10 số tự nhiên đầu tiên

Câu 3: Cho mảng A chứa các giá trị sau

A	17	13	20	10	15
I	3	7	5	6	7

a) Xác định các giá trị của A[2];A[4];A[7];A[9] là bao nhiêu

b) Cho các câu lệnh sau:

A[2]:= A[3] + A[5];

A[9]:= A[6] + A[7];

Dựa vào bảng trên hãy tính giá trị các phần tử A[2], A[9]

Giúp em với ạ chiều nay thi rồi huhu

Answer 1

Câu 1: 

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

b) a[5]:=8;

c) for i:=1 to 50 do  

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to 50 do 

 write(a[i]:4);

 

Answer 2

Câu 2: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do 

  s:=s+i;

writeln(s);

readln;

end.

Answer 3

Câu 3: 

b) a[2]=37

a[9]=25