help me, please Bài 1: Viết chương trình: – Nhập một dãy số nguyên có n phần tử – Xuất ra màn hình dãy số vừa nhập -in ra màn hình các số có giá trị

0 bình luận về “help me, please Bài 1: Viết chương trình: – Nhập một dãy số nguyên có n phần tử – Xuất ra màn hình dãy số vừa nhập -in ra màn hình các số có giá trị”

1. Program Hotboy;

   Uses crt;

   Var i,n:integer;

   S:longint;

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

   Begin

   clrscr;

   S:=0;

    Write(‘nhap n nguyen duong tu ban phim ‘);

    Readln(n);

    For i:=1 to n do

   Begin

       Write(‘ A[‘,i,’]’);readln(A[i]);

   End;

   Write(‘day so do la’);

   For i:=1 to n do

   Write(A[i],’ ‘);

   For i:=1 to n do

   If A[i] =15 then inc(s);

   Write(‘co’ ,s,’ so bang 15′);

   Readln

   End.

   Bình luận

2. uses crt;
   var A:array[1..1000] of integer;
       i,n:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘); 
         readln(A[i]);
      end;
      for i:=1 to n do write(A[i]:4);
      readln
   end.

   Yêu cầu cuối cùng nhờ em kiểm tra lại xem đúng đề chưa nhé.

   Bình luận