viêt chương trình nhập tên của 40 hs lơp 8A vào từ bàn phím sau đó in ra màn hình lười chào các bạn trong lớp

0 bình luận về “viêt chương trình nhập tên của 40 hs lơp 8A vào từ bàn phím sau đó in ra màn hình lười chào các bạn trong lớp”

1. Uses Crt;
   Var hovten:array[1..40] of string; i:integer;
   Begin
   Clrscr;
   For i:=1 to 40 do
   Begin
   Write(‘Nhap ten hoc sinh so ‘,i,’ vao day:’); Readln(hovten[i]);
   End;
   Delay(70);
   Writeln(‘Chao cac ban trong lop nha :)))’); Readln
   End.
   *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Đảm bảo đúng hết luôn nhớ www 😀 Uy tín luôn :333
   *P/s:Hỏi và đáp, comment giải đáp!

   Bình luận

2. uses crt;

   var ten: array[1..40] of string;

   i: integer;

   begin

   clrscr;

   for i:=1 to 40 do

   begin

   write (‘nhap ten cua hoc sinh thu ‘,i,’: ‘);  readln (a[i]);

   end;

   delay(50);         {cái dòng này ko cần cũng đc}

   writeln (‘CHAO CAC BAN’);

   readln;

   end.

   Bình luận