K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

14 tháng 4 2023

Program HOC24;

var i: byte;

a: array[1..10] of real;

begin

for i:=1 to 10 do begin write('Nhap diem cua ban thu ',i,': '); readln(a[i]); end;

readln

end.

14 tháng 4 2023

Program HOC24;

var i,n,k,d: integer;

a: array[1..1000] of integer;

begin

readln(n,k);

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

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.

13 tháng 4 2023

làm bài thuyết trình sing động hơn

và ko cần phải gỏ nhiều

 

13 tháng 4 2023

N    g