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)

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)”

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

   max, i, n: integer;

   begin

   write (‘nhap so luong phan tu : ‘ ) 

   readln  (n); 

   for i:=1 to n do 

   begin 

   write (‘nhap phan tu thu’, i); 

   readln (A [ i ]); 

   end; 

   max : = a [ i ]; 

   for i: = 2 to n do 

   if A [ i ] > max then 

   max : = a [ i ];

   write ( ‘so lon nhat la =’, max);

   readln

   end.

   chúc bạn học tốt

   Bình luận

2. 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.

   Bình luận