viết ct giải quyết bài toán tìm số lớn nhất (sử dụng for to do và câu lệnh điều kiện)

Question

haiyen · Answer

program ct;

uses crt;

var i,n,Max:integer;

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

begin

clrscr;

write(‘nhap n:=’);readln(n);

for i:=1 to n do

begin

write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

end;

Max:=A[1];

for i:=2 to n do

if Max<A[i] then Max:=A[i];

writeln(‘gia tri lon nhat la’,Max);

readln

end.

aivilan · Answer

var a,m,n,i:longint;   begin     read(n);    read(a);m:=a;    for i:=2 to n do begin read(a);if a>m then m:=a;end;   write(m);   end.

0 bình luận về “viết ct giải quyết bài toán tìm số lớn nhất (sử dụng for to do và câu lệnh điều kiện)”