Question

Cho dãy số n được nhập vào từ bàn phím . Viết chương trình tính và in ra màn hình A, đếm các số chẵn B tim gtln của dãy số C tìm Gtln của dãy số

Answer 1

program Tinh_Day_So;
var
  n, i, x, dem: integer;
  max, a: integer;
begin
  write('Nhập số ptử của dãy: ');
  readln(n);
  writeln('Nhập các ptu của dãy:');
  for i := 1 to n do
  begin
    readln(x);
    a := a + x;  
    if x mod 2 = 0 then
      dem := dem + 1; 
    if x > max then
      max := x; 
  end;
  writeln('Tổng dãy là: ', a);
  writeln('Số ptu chẵn là: ', dem);
  writeln('Gtln của dãy là: ', max);
end.