viết chương trình nhập vào mảng A gồm N số thực (0<=Ai<=10).Tính và đưa ra màn hình số lượng phần tử >=8.0
viết chương trình nhập vào mảng A gồm N số thực (0<=Ai<=10).Tính và đưa ra màn hình số lượng phần tử >=8.0
By Kinsley
By Kinsley
viết chương trình nhập vào mảng A gồm N số thực (0<=Ai<=10).Tính và đưa ra màn hình số lượng phần tử >=8.0
program soluong;
uses crt;
var A:array[1..100] of real;
n,i,dem:byte;
begin
write(‘Nhap so luong phan tu N: ‘); readln(n);
dem:=0;
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
if A[i]>=8 then dem:=dem+1;
end;
write(‘Trong mang A co ‘,dem,’ phan tu lon hon hoac bang 8.0);
readln;
end.
program bt1;
uses crt;
var a:array [1..10] of real;
n,i,dem:integer;
begin
clrscr;
write(‘nhap sophan tu trong mang:’);readln(n);
for i:=1 to n do
begin
writeln(‘a[‘,i,’]’);readln(a[i]);
end;
for i:=1 to n do
begin
if a[i]>=8.0 then dem:=dem+1;
end;
wrireln(‘so cac phan tu <=8 la:’,dem);
readln
end.