Viết chương trình nhập vào mảng một chiều A khoảng 50 phần tử. a/ Đếm số phần tử dương trong dãy b/Tính các số âm trong dãy c/In mảng chỉ gồm các số c

0 bình luận về “Viết chương trình nhập vào mảng một chiều A khoảng 50 phần tử. a/ Đếm số phần tử dương trong dãy b/Tính các số âm trong dãy c/In mảng chỉ gồm các số c”

1. Program NN;
   Uses crt;
   Var A: array[1..50] of longint;
       n,i,s,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; d:=0;
           For i:=1 to n do
           Begin
                   Read(A[i]);
                   If A[i] > 0 then inc(d);
                   If A[i] < 0 then s:=s+A[i];
           End;
           Writeln(d);
           Writeln(s);
           For i:=1 to n do
                   If A[i] mod 2 = 0 then Write(A[i],’ ‘);
           Readln
   End.

   Bình luận

2.  đáp án

   • var 

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

     i,n:integer;

     sa,sd:longint;

     begin

     write(‘nhap vao n:’);readln(n);

     for i:=1 to n do

     write(‘nhap vao phan tu a[‘,i,’]:’);

     readln(a[i]);

     sa:=0; sd:=0;

     for i:=1 to n do

     if a[i] > 0 then sd:=sd+a[i] 

     else sa:=sa+a[i];

     writeln(‘tong am la’,sa);

     writeln(‘tong duong la’,sd);

     readln

     end.

   Bình luận