Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Hoàng Minh Anh

Bài 1: 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 100 phần tử thuộc kiểu dữ liệu số thực.

B. Khai báo mảng B gồm 20 phần tử thuộc kiểu dữ liệu số nguyên.

C. Phần tử thứ 7 của mảng A được gán giá trị là 8.

D. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên.

Bài 2: Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím.

Bài 3: Viết chương trình nhập điểm kiểm tra học kỳ môn Tin cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím( sử dụng biến mảng).

Bài 4: Viết chương trình:

a) Nhập vào mảng A có n phần tử.

b) In mảng A đã nhập ra màn hình.

c) In ra màn hình các số dương.

d) Tính tổng và giá trị trung bình của các số dương trong mảng.

Bài 5: Viết chương trình:

a) Nhập vào mảng A có n phần tử.

b) In mảng A đã nhập ra màn hình.

c) In ra các số chẵn của mảng.

d) In ra các số lẽ của mảng.

Trần Công Tiến
30 tháng 3 2019 lúc 17:03

Program ct;

Var i,n,so le, so chan:integer;

B:Array[1..n] of integer;

Begin

Write('n=');Readln(n);

For i:=1 to n do begin Write('B[',i,']=');

Readln(B[i]);

End;

For i:=1 to n do Begin

if B[i] mod 2 <>0 then writeln('so le , ' );

If B[i] mod 2=0 then writeln('so chan ,' );

End;

Readln

End.

Minh Lệ
11 tháng 4 2019 lúc 12:44

Lời giải:

Bài 1 :

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

b) var B : array[1..20] of integer ;

c) A[7] := 8 ;

Bài 2 :

program hotrinhoc ;

var a: array[1..32000] of integer ;

i,n: integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

readln

end.

Bài 3 :

program hotrinhoc ;

var a: array[1..32000] of integer ;

i,n: integer ;

begin

write('Co tat ca so ban hoc sinh la'); readln(n);

write('Nhap diem mon tin cua cac ban');

for i:= 1 to n do

begin

write('Ban thu ',i,':'); readln(a[i]);

end;

readln

end.

Bài 4 : a,b giống bài 3

c)

program hotrinhoc ;

var a: array[1..32000] of integer ;

i,n,tong : integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

tong:=0;

for i:= 1 to n do

if a[i] > 0 then tong:=tong+1;

write('Ket qua la',tong);

readln

end.

Bài 5: a và b tương tự bài 3

c+d )

program hotrinhoc ;

var a: array[1..32000] of integer ;

i,n: integer ;

begin

write('nhap do dai cua mang'); readln(n);

write('Nhap cac gia tri cua phan tu');

for i:= 1 to n do

begin

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

end;

for i:= 1 to n do

c) if i mod 2= 0 then write('Cac so chan cua mang la:',i);

d) if i mod 2= 1 then write('Cac so le cua mang la:',i);

readln

end.


Các câu hỏi tương tự
duyy
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
Tích Nguyệt
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
Tùng Bùi
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Hoài Right
Xem chi tiết
Hoàng Thị Thanh Mỹ
Xem chi tiết
Nguyễn Linh
Xem chi tiết