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

Thị Ngọc Thảo Đinh

Viet CT khai báo mảng A có n phần tử nhập giá trị cho các phần tử của mảng A.In ra màn hình số lốn nhất của dãy số

híp
23 tháng 4 2019 lúc 20:43

program solonnhat;

var i,n,SLN:intger;

A:array[1..100] of integer;

begin

write('nhap do dai cua day so, n='); readln(n);

writeln('nhap cac phan tu cua day so:');

for i:=1 to n do

begin

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

end;

SLN:=a[1];

for i:=2 to n do if SLN<a[i] then SLN:=a[i];

write('so lon nhat cua day so la:',SLN);

readln

end.

Bình luận (0)
Thiện
23 tháng 4 2019 lúc 20:46

uses crt;

var i,n,max:longint;

a:array[1..1000]of longint;

begin

write('nhap so phan tu:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu thu ',i,' :');readln(a[i]);

if i=1 then max:=a[i]

else if max<a[i] then max:=a[i];

end;

write('so lon nhat trong mang la:',max);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Tùng Bùi
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
Ngọc Thảo
Xem chi tiết
Ngọc Thảo
Xem chi tiết
Khang Đinh Hoàng
Xem chi tiết
duyy
Xem chi tiết
Ngọc Thảo
Xem chi tiết
Ngọc Thảo
Xem chi tiết
Joyceeeee
Xem chi tiết