Tin học Mảng

SwinterKiller · 3 Tháng mười hai 2018

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 · 3 Tháng mười hai 2018

Mã:

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 · 3 Tháng mười hai 2018

Ray Kevin said:

Mã:

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 !

Tìm kiếm

Tìm kiếm

Tin học Mảng

SwinterKiller

Học sinh mới

Ray Kevin

Học sinh chăm học

SwinterKiller

Học sinh mới