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.
Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau dùng để làm gì? Var a:array[0..50] of real; i, k:byte;
Begin
k:= 0;
for i:= 1 to 50 do if a[i] > a[k] then k:= i;
writeln(k);
End.
A. Đếm số phần tử trong mảng a là số chẵn.
B. Đếm số phần tử trong mảng a là số lẻ.
C. Tính tổng các phần tử trong mảng a.
D. Đếm các phần tử có trong mảng a.
1:
uses crt;
var k:array[1..50]of real;
a,i,dem:integer;
begin
clrscr;
write('a='); readln(a);
for i:=1 to a do
begin
write('k[',i,']='); readln(k[i]);
end;
{-------------------xu-ly-------------------------}
writeln('cac so khong am trong day la: ');
for i:=1 to a do
if k[i]>=0 then write(k[i]:4);
writeln;
dem:=0;
for i:=1 to a do
if k[i]<0 then inc(dem);
writeln('so so am trong day la: ',dem);
readln;
end.
2:
uses crt;
var b:array[1..30]of integer;
m,i:integer;
s:int32;
begin
clrscr;
write('nhap m='); readln(m);
for i:=1 to m do
begin
write('b[',i,']='); readln(b[i]);
end;
{--------------------------------xu-ly-------------------------}
s:=1;
for i:=1 to m do
if b[i] mod 3=0 then s:=s*b[i];
writeln('tich cac so nguyen la boi cua 3 la: ',s);
writeln('cac so khong la boi cua 3 trong day la: ');
for i:=1 to m do
if b[i] mod 3<>0 then write(b[i]:4);
readln;
end.
Câu D