#include<iostream>

using namespace std;

int main(){

int a[10];

for(int i=0;i<10;i++){

cin>>a[i];

}

for(int i=0;i<10;i++){

if(a[i]>150){cout<<a[i]<<" ";

}
}

mk viết ngôn ngữ pascal nha, trường mk chỉ dạy ngôn ngữ này thôi

thông cảm nha!

đây nha, chúc bạn học tốt!

cho mk xin ctrlhn nha, mk cảm ơn

uses crt;

var N: array [1..10] of integer;

       i,s:integer;

begin

 for i:=1 to 10 do

  begin

   write('nhap chieu cao (cm) cua ban thu ',i,': '); readln(N[i]);

  end;

 for i:=1 to 10 do

  if N[i]>150 then s:=s+1;

 write('so hoc sinh co chieu cao lon hon 150cm la ',s);

 readln;

end.