viết phương trình nhập vào mảng gồm 10 số nguyên

0 bình luận về “viết phương trình nhập vào mảng gồm 10 số nguyên”

1. program nhap_mang;

   uses crt;

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

         i:integer;

   begin

        clrscr;

        for i:=1 to 10 do

             begin

                  write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

             end;

        write(‘Mang vua nhap la: ‘);

        for i:=1 to 10 do write(A[i],’ ‘);

        readln;

   end.

   Bình luận

2. var s,i:longint;

       a: array[1..10] of longint;

   begin

   for i:=1 to 10 do

   begin

   write(‘Nhap phan tu thu ‘,i);

   read(a[i]);

   if a[i]>0 then s:=s+a[i];

   end;

   writeln;

   write(‘Tong la: ‘,s);

   readln

   end.

   xin hay nhất

   5 sao

   cảm ơn

   ok nha

   thank you

   chúc bạn học tốt

   Bình luận