uses crt;
var a:array[1..100]of real;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if a[i]>=8 then inc(dem);
writeln(dem);
readln;
end.
uses crt;
var a:array[1..100]of real;
i,n,dem:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem:=0;
for i:=1 to n do
if a[i]>=8 then inc(dem);
writeln(dem);
readln;
end.
Lập trình pascal mn giúp mình vs a mình cảm ơn
Tin pascal mn giúp mình với ạ
Dùng pascal ạ. mn giúp mình vs ạ
Mn giúp em hai bài này với ạ. E cảm ơn ạ Câu 2. Cho ba biển a, b, c có giá trị nguyên năm trong khoảng -20000...20000 và các biển x, y z nhận các giá trị 45.2, 5.6; 9.8 Trong ngôn ngữ lập trình Pascal, hãy viết khai báo cho các biến trên sao cho tôn ít bộ nhớ nhất? Câu 3. Hãy viết các câu lệnh tương ứng thực hiện các yêu cầu sau a.Khai báo hằng số pi b.Khai báo biến X,y kiểu thực
Em hãy viết chương trình nhập vào mảng A gồm 100 phần tử. tính và đưa ra màn hình tổng các phần tử không chia chết cho 2 trong mảng. Mn ơi giúp mình làm bài này với ạ TT mình cảm ơn mọi người nhiều!! (pascal nhé mấy bạn ơi
Viết chương trình bằng ngôn ngữ lập trình pascal nhập vào một xâu kí tự.Đếm và in ra màn hình số kí tự là dấu cách có trong xâu,mọi người giúp em với ạ
Mọi người giúp mình bài này với ạ :
Viết chương trình pascal nhập mảng và tìm số nhỏ thứ k trong mảng
Pascal Mọi người giúp mình 3 bài này với ạ!
Tìm lỗi sai và viết lại chương trình mn giúp mình với ạ