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. Vì đề cuối kì quá ,`A[i]=15` thì đương nhiên in ra bằng `15` rồi nên mình chuyển đề thành tìm số số `=15` nha

   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. program ct;

   uses crt;

   var i,n: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;

     writeln(‘day so vua nhap la’);

        for i:=1 to n do

           write(A[i],’  ‘);

      writeln(‘cac so co gia tri bang 15 la’);

         for i:=1 to n do

            if A[i]=15 then write(A[i]);

   readln

   end.

   Bình luận