Input: a, b

Output: a (nếu a > b) hoặc b (nếu b > a)

#include<bits/stdc++.h>

using namespace std;

int main(){

  int n;

  cout<<"Nhap so nguyen:";

  cin>>n;

  if(n%2==0)

    {cout<<"n la so chan"<<endl;}

  else {cout<<"n la so le"<<endl;}

  if(n==0)

    {cout<<"n khong phai la so nguyen duong va so nguyen am";}

  if(n<0)

    {cout<<"n la so nguyen am";}

  if(n>0)

    {cout<<"n la so nguyen duong";}

}

program XuLyDaySo;

var
  N, i, soNguyen, tong, tongLe, max, min, demMax: integer;

begin
  // Nhập số lượng phần tử N
  write('Nhap so luong phan tu N: ');
  readln(N);

  // Khởi tạo các biến
  tong := 0;
  tongLe := 0;
  demMax := 0;

  // Nhập dãy số và thực hiện các phép toán
  for i := 1 to N do
  begin
    write('Nhap phan tu thu ', i, ': ');
    readln(soNguyen);

    // a) Tính tổng các phần tử trong dãy
    tong := tong + soNguyen;

    // b) Tính tổng các phần tử lẻ trong dãy
    if soNguyen mod 2 <> 0 then
      tongLe := tongLe + soNguyen;

    // c) Tìm phần tử lớn nhất, bé nhất trong dãy
    if i = 1 then
    begin
      max := soNguyen;
      min := soNguyen;
    end
    else
    begin
      if soNguyen > max then
        max := soNguyen;
      if soNguyen < min then
        min := soNguyen;
    end;

    // d) Đếm số lượng phần tử có giá trị lớn nhất
    if soNguyen = max then
      demMax := demMax + 1;
  end;

  // In kết quả
  writeln('a) Tong cac phan tu cua day: ', tong);
  writeln('b) Tong cac phan tu le cua day: ', tongLe);
  writeln('c) Phan tu lon nhat trong day: ', max);
  writeln('   Phan tu nho nhat trong day: ', min);
  writeln('d) So luong phan tu co gia tri lon nhat: ', demMax);

  readln;
end.

không nhắn linh tinh? ở đây chỉ nhắn để hỏi bài thôi nhé :) 

Var a:array[1..1000] of integer;

i,n:integer;

sc,sl:longint;

Begin

Write('Nhap so luong so cua day ');readln(n);

For i:=1 to n do

Begin

Write(a,'[',i,'] = ');readln(a[i]);

End;

Write('Tong cac so chan la ');

For i:=1 to n do

If a[i] mod 2 = 0 then sc:=sc+a[i];

Writeln(sc);

Write('Tong cac so le la ');

For i:=1 to n do

If a[i] mod 2 <> 0 then sl:=sl+a[i];

Write(sl);

Readln

End.

a) Lỗi: Dư dấu ; sau từ do

b) Lỗi: While i>20 then (sửa: While i>20 do)

c) Lỗi: B=B+2; (sửa: B:=B+2;)

d) Lỗi: dư dấu ; sau từ do

e) Lỗi: S=S*2; (sửa: S:=S*2;)

f) Lỗi: i:=1 (sửa: i:=1;)