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.

30 tháng 1 2019

Đáp án đúng : C

8 tháng 4 2017

Đáp án đúng : C

Chọn D nhé bạn

20 tháng 2 2021

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.

31 tháng 7 2023

Mn giúp e vơi e đang cần gấp!!!!!

1 tháng 2 2019

bạn có nhập sai ct ko chứ làm sao ct chạy nếu như chưa nhập a[m] với a[j] là gì

giả sử nếu như a[m] và a[j] đã được nhập hết thì câu trả lời đúng là D

18 tháng 10 2020

uses crt;
var a:array[1..100]of integer;
n,i,t,dem,max,min,kt,j,x,dem1,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac phan tu cua mang la: ',t);
dem:=0;
for i:=1 to n do
if a[i]<0 then inc(dem);
writeln('So phan tu am co trong mang la: ',dem);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Tong phan tu nho nhat va lon nhat trong mang la: ',max+min);
writeln('Vi tri cac so nguyen to co trong mang la: ');
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
writeln;
repeat
write('Nhap x='); readln(x);
until x>0;
dem1:=0;
for i:=1 to n do
if a[i]>0 then inc(dem1);
if dem1<x then writeln(x,' nho hon so luong so nguyen duong trong mang')
else if dem1=x then writeln(x,' la so luong so nguyen duong trong mang')
else writeln(x,' lon hon so luong so nguyen duong trong mang');
readln;
end.

uses crt;

var b,a:array[1..100]of integer;

i,n,dem,dem1,dem2,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

begin

if b[i]<0 then inc(dem);

if b[i]>0 then inc(dem1);

end;

writeln('So phan tu am la: ',dem);

writeln('So phan tu duong la: ',dem1);

t:=0;

for i:=1 to n do 

 if b[i]<>0 then t:=t+b[i];

writeln('Trung binh cac phan tu khac 0 trong mang la: ',t/(dem+dem1):4:2);

min:=b[1];

for i:=1 to n do

  if min>b[i] then min:=b[i];

dem2:=0;

for i:=1 to n do 

  if min=b[i] then

begin

 inc(dem2);

a[dem2]:=i;

end;

writeln('Gia tri nho nhat la: ',min);

writeln('Chi so la: ');

for i:=1 to dem2 do 

  write(a[i]:4);

readln;

end.

11 tháng 5 2022

Nhập mảng n<-100 số nguyên. Tính tống các phần tử lớn nhất trong mảng và xuất ra vị trí của các phần tử lớn nhất trong mảng, viết chương trình sau.Giúp em với ạ.

Bài 4: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

sort(a+1,a+n+1);

cout<<"So lon nhat la: "<<a[n]<<endl;

cout<<"So nho nhat la: "<<a[1]<<endl;

cout<<"So lon thu hai la: "<<a[n-1]<<endl;

cout<<"So nho thu hai la: "<<a[2];

return 0;

}

2 tháng 1 2022

viết bằng pascal được không bạn?