Viết chương trình thực hiện các yêu cầu a, Tạo mảng số nguyên gồm 10 phần tử b, Thông báo ra màn hình các số dương c, Tính tổng phâ

0 bình luận về “Viết chương trình thực hiện các yêu cầu a, Tạo mảng số nguyên gồm 10 phần tử b, Thông báo ra màn hình các số dương c, Tính tổng phâ”

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

         S: word;

   Begin

         S:=0;

         For i:=1 to 10 do 

               Begin

                     Write(‘nhap a[‘,i,’] = ‘);

                     readln(a[i]);

                     If a[i]>5 then s:=s+5;

               End;

         For i:=1 to 10 do if a[i]>0

               Then write(a[i], ‘ ‘);

         Write(‘tong phan tu lon hon 5 la ‘, s);

         Readln

   End.

   Bình luận