Question

Cho mảng 1 chiều A có tối đa 100 phần tử các phần tử có kiểu số nguyên.

a. Nhập số nguyên N và mảng A gồm N số nguyên

b. Xuất mảng. 

c. tính và đưa ra màn hình số phần tử bé hơn 2 số liền kề.

d. tính và đưa ra màn hình số phần tử lớn hơn 2 số liền kề.

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n,dem1,dem2:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

dem1:=0;

for i:=1 to n do 

  if (a[i]>a[i-1]) and (a[i]>a[i+1]) then dem1:=dem1+1;

dem2:=0;

for i:=1 to n do 

  if (a[i]<a[i-1]) and (a[i]<a[i+1]) then dem2:=dem2+1;

writeln(dem1);

writeln(dem2);

readln;

end.