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

Phương Anh

Viết 2 chương trình Pascal: Nhập 10 phần tử và tìm số lớn nhất trong 10 phân tử ấy.

CT1: không sử dụng biến mảng

CT2: sử dụng biến mảng

So sánh 2 ct trên.

Giúp mình nha! Sắp KT học kì tin rồi.

Thanks các bạn nhiều!vui

Đoàn Bảo Ngọc
22 tháng 4 2017 lúc 10:32

CT2:

Program Max_10;

Uses crt;

Var: i,Max:integer;

a: array[1..10] of integer;

Begin

Clrscr;

For i:= 1 to 10 do

Write('Hay nhap so thu ',i,' : '); Readln(a[i]);

Max:= a[1];

For i:= 2 to 10 do

if a[i] > Max then Max:= a[i];

Writeln('So lon nhat trong 10 phan tu ban vua nhap la ',Max);

Readln;

End.

Bình luận (0)

Các câu hỏi tương tự
Phương Anh
Xem chi tiết
Hường Nguyễn Thị Thu
Xem chi tiết
Khanh Quynh
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Ngô Vịnh
Xem chi tiết
Nguyễn Linh
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
mynguyen
Xem chi tiết
Phạm bình hữu đan
Xem chi tiết