giúp em với đang cần gấp ạ 1.for: i:=28 do writeln(‘A’)số vòng lập bao nhiêu? 2.Viết chương trình tìm giá trị lớn nhất trong 10 dãy số nguyên nhân từ

0 bình luận về “giúp em với đang cần gấp ạ 1.for: i:=28 do writeln(‘A’)số vòng lập bao nhiêu? 2.Viết chương trình tìm giá trị lớn nhất trong 10 dãy số nguyên nhân từ”

1. a) ko lặp

   b)

   program bt;

   uses crt;

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

   i,max:integer

   begin clrscr;

   for i:=1 to 10 do readln(a[i]);

   max:=a[1];

   for i:=2 to 10 do if max<a[i] thne max:=a[i];

   writeln(max);

   readln;

   end.

   Bình luận

2. a) lệnh sai

   b)

   program bt;

   uses crt;

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

   i,max:integer

   begin clrscr;

   for i:=1 to 10 do readln(a[i]);

   max:=a[1];

   for i:=2 to 10 do if max<a[i] thne max:=a[i];

   writeln(max);

   readln

   end.

   Bình luận