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

NT
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.

Bình luận (0)

Các câu hỏi tương tự
KT
Xem chi tiết
CD
Xem chi tiết
NM
Xem chi tiết
TV
Xem chi tiết
HH
Xem chi tiết
AS
Xem chi tiết
TH
Xem chi tiết
TH
Xem chi tiết
TN
Xem chi tiết