viết chương trình nhập mảng một chiều 10 phần tử kiểu số nguyên và tìm phần tử nguyên dương của mảng Làm giúp em với ạ

0 bình luận về “viết chương trình nhập mảng một chiều 10 phần tử kiểu số nguyên và tìm phần tử nguyên dương của mảng Làm giúp em với ạ”

1. uses crt;
   var i:integer;
   a : array [1..10] of integer;
   begin
   clrscr;
   for i:= 1 to 10 do
   begin
   write(‘Nhap a[‘,i,’] : ‘);readln(a[i]);
   end;
   write(‘Cac phan tu nguyen duong : ‘);
   for i:=1 to 10 do
   if a[i] > 0 then write(a[i],’ ‘);
   readln;
   end.

   Bình luận

2. uses crt;
   var i: longint;
         a: array [1..10] of longint;
   begin
              clrscr;
              for i:= 1 to 10 do
                        begin
                                 write(‘a[‘,i,’] =  ‘);read(a[i]);
                        end;
              writeln(‘Cac phan tu nguyen duong la: ‘);
              for i:=1 to 10 do
              if a[i] > 0 then write(a[i],’ ‘);
              readln;
   end.

   Bình luận