câuv1 :viết chương trình tính tổng các số lẻ đầu tiên cho tới khi được tổng nhỏ nhất > 5.000 . đưa kết quả ra màn hình Câu 2: viết chương trình nhập s

Câu 1:

uses crt;
var i,s:longint;
begin
       clrscr;
       s:=0;i:=1;
       while s<=5000 do 
              begin
                     if i mod 2=1 then inc(s,i);
                     inc(i);
              end;
       write(s);
       readln;
end.

Câu 2:

uses crt;
var a:array[1..1000000] of real;
       s:extended;
       n,i:longint;
begin
       clrscr;
       write(‘Nhap so luong hoc sinh: ‘); readln(n);
       for i:=1 to n do 
              begin
                     write(‘Nhap diem hoc sinh thu ‘,i,’: ‘); readln(a[i]);
                     s:=s+a[i];
              end;
       writeln(‘Diem trung binh: ‘,s/n:0:2);
       readln;
end.