Bài 9. Làm việc với dãy số

Nguyễn Lê Phước Thịnh
14 tháng 4 2022 lúc 21:57

uses crt;

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

n,i,x,t,dem:integer;

begin

clrscr;

readln(n);

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

readln(x);

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i]>x then

begin

write(a[i]:4);

t:=t+a[i];

dem:=dem+1;

end;

writeln;

writeln(t);

writeln(dem);

readln;

end.


Các câu hỏi tương tự
Không Tên
Xem chi tiết
Chi Đặng
Xem chi tiết
Nguyễn Thị Trà My
Xem chi tiết
Trần. A. Vũ
Xem chi tiết
Hồ Hà
Xem chi tiết
Ánh sao
Xem chi tiết
Trần Đình Hải
Xem chi tiết
Trần Huy
Xem chi tiết
Thuc Nguyen
Xem chi tiết