viết chương trình nhập dãy số chẵn n và tính tổng giúp mình với chiều nay mình kt :(((((

0 bình luận về “viết chương trình nhập dãy số chẵn n và tính tổng giúp mình với chiều nay mình kt :(((((”

1. Program Hotboy;

   Uses crt;

   Var A:array[1..100] of integer;

   s,n : longint;

   Begin

   Clrscr;

   s:=0;

   Repeat

   Write(‘nhap so n’);

   Until (n mod 2=0);

   For i:=1 to n do

   Write(‘A[‘,i,]’);

   Readln(A[i]);

   For i:=1 to n do

   S:=S+A[i];

   Write(‘tong can tim la’,S);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

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

   s:=0;

   for i:=1 to n do

   if A[i] mod 2=0 then s:=s+A[i];

   writeln(‘tong la:’,s);

   readln

   end.

   Bình luận