Tin học Mảng

[SwinterKiller]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

AI giỏi tin giúp mình câu này với :
Viết chương trình nhập từ bàn phím đưa ra màn hình 1 mảng S rồi:
a) Đếm trong mảng xem có bao nhiêu phần tử lẻ
b) Kiểm tra xem mảng có tính chất tăng hay không tăng ?
( Ví dụ mảng A : 1 2 3 3 7 4 không có tính chất tăng)

 

[Ray Kevin]

var s:mang[0..10000] of integer;
      n,i,dem:integer;
      kt:boolean;
begin
   write('Nhap so phan tu mang S:'); readln(n);
   dem:=0; kt:=true; s[0]:=0;
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,' : ');readln(s[i]);
      if s[i] mod 2 <> 0 then dem:=dem+1;
      if s[i] <= s[i-1] then kt:=false;
   end;
   writeln('So phan tu le la: ',dem);
   if kt then writeln('Day co tinh chat tang') else writeln('Day ko co tinh chat tang');
   readln
end.

 

[SwinterKiller]

var s:mang[0..10000] of integer;
      n,i,dem:integer;
      kt:boolean;
begin
   write('Nhap so phan tu mang S:'); readln(n);
   dem:=0; kt:=true; s[0]:=0;
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,' : ');readln(s[i]);
      if s[i] mod 2 <> 0 then dem:=dem+1;
      if s[i] <= s[i-1] then kt:=false;
   end;
   writeln('So phan tu le la: ',dem);
   if kt then writeln('Day co tinh chat tang') else writeln('Day ko co tinh chat tang');
   readln
end.

cách này hay đó :v cám ơn nha !