Viết chương trình nhập vào từ bàn phím dễ n số và in ra tổng trong các giải về nhập

0 bình luận về “Viết chương trình nhập vào từ bàn phím dễ n số và in ra tổng trong các giải về nhập”

1. Tính và in ra tổng các số lẻ (dương)
   Program Tinh_tong_so_le;
   Uses CRT;
   Var i,n,S:integer;
   sl:boolean;
   Begin
   Clrscr;
   Write(‘Nhap so n:’);Readln(n);
   sl:=True;
   For i:=1 to n do
   Begin
   If sl=True then S:=S+i;
   sl:= not True;
   End;
   Writeln(‘Tong cua n so le la:’, S);
   Readln;
   End.

   – In ra phần tử lớn nhất và nhỏ nhất
   var a:array[1..100] of integer;
   i,k,n:integer; 
   begin 
   readln(n); k:=0; 
   for i:=1 to n do begin 
   readln(a[i]); 
   if a[i]>k then k:=a[i]; 
   end; 
   writeln(k); 
   for i:=1 to n do if a[i]=k then write(i,#32); 
   readln 
   end.

   Bình luận