Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)k := 1

NC

Nguyễn Cảnh Hùng

30 tháng 1 2019

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)k := 1 ;for i := 2 to N do if a[i] > a[k] then k := i; A. Tìm phần tử nhỏ nhất trong mảng B. Tìm phần tử lớn nhất trong mảng C. Tìm chỉ số của phần tử lớn nhất trong mảng D. Tìm chỉ số của phần tử nhỏ nhất trong...

Đọc tiếp

#Tin học lớp 11

1

DN

Đỗ Ngọc Trinh

30 tháng 1 2019

Đáp án đúng : C

Đúng(0)

NC

Nguyễn Cảnh Hùng

12 tháng 7 2017

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)k := 1 ;for i := 2 to N do if a[i] < a[k] then k := i; A. Tìm phần tử nhỏ nhất trong mảng B. Tìm phần tử lớn nhất trong mảng C. Tìm chỉ số của phần tử lớn nhất trong mảng D. Tìm chỉ số của phần tử nhỏ nhất trong...

Đọc tiếp

#Tin học lớp 11

1

DN

Đỗ Ngọc Trinh

12 tháng 7 2017

Đáp án đúng : D

Đúng(0)

NC

Nguyễn Cảnh Hùng

8 tháng 4 2017

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các công việc sau (a là mảng số có N phần tử)S := 0; For i := 1 to N do S := S+a[i]; A. In ra màn hình của mảng A B. Đếm các phần tử của mảng A C. Tính tổng các phần tử của mảng A D. Không thực hiện việc nào trong 3 việc...

Đọc tiếp

#Tin học lớp 11

1

DN

Đỗ Ngọc Trinh

8 tháng 4 2017

Đáp án đúng : C

Đúng(0)

LT

Lữ Thị Như Quỳnh

22 tháng 3 2023

Trong ngôn ngữ lập trình pascal đoạn chương trình sau thực hiện công việc gì i:=i; while i

#Tin học lớp 11

1

ML

Minh Lệ

22 tháng 3 2023

Bạn bổ sung thêm đề nhé

Đúng(0)

NX

Ngô xuân tuyề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.

#Tin học lớp 11

2

NL

Nguyễn Lê Phước Thịnh

20 tháng 2 2021

Chọn D nhé bạn

Đúng(1)

LQ

Lưu Quang Trường

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.

Đúng(0)

NT

Nông trang

28 tháng 4 2021

Trong ngôn ngữ lập trình pascal đoạn chương trình sau thực hiện công việc gì S1 := 'hong'; S2 := 'hoa'; i :=pos(S2, S); While i 0 do Begin Delete(S,i,2); Insert(S1,S,i); i := pos (S2,S); End;

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

28 tháng 4 2021

Sửa đề: S:='hong';

Đoạn chương trình thực hiện chương trình chèn xâu s1 vào xâu s

Đúng(1)

HN

Hiểu Nguyễn Đức

19 tháng 5 2022

viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :

-nhập/xuất mảng

-đếm các số hoàn hảo có trong mảng

-tính tổng các phần tử chẵn trong mảng .

#Tin học lớp 12

2

NL

Nguyễn Lê Phước Thịnh

19 tháng 5 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem,t,j,t1;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem=0;

for (i=1; i<=n; i++)

{

t=0;

for (j=1; j<=a[i]-1; j++)

if (a[i]%j==0) t+=j;

if (t==a[i]) dem++;

}

cout<<dem<<endl;

t1=0;

for (i=1; i<=n; i++)

if (a[i]%2==0) t1+=a[i];

cout<<t1;

return 0;

}

Đúng(1)

KS

Kudo Shinichi

25 tháng 5 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem,t,j,t1;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem=0;

for (i=1; i<=n; i++)

{

t=0;

for (j=1; j<=a[i]-1; j++)

if (a[i]%j==0) t+=j;

if (t==a[i]) dem++;

}

cout<<dem<<endl;

t1=0;

for (i=1; i<=n; i++)

if (a[i]%2==0) t1+=a[i];

cout<<t1;

return 0;

}

Đúng(0)

HN

Hiểu Nguyễn Đức

19 tháng 5 2022

viết chương trình nhập vào 1 mảng 1 chiều gồm n phần tử ( với n được nhập vào từ bàn phím ) hãy thực hiện các công việc sau :

-nhập/xuất mảng

-đếm các số hoàn hảo có trong mảng

-tính tổng các phần tử chẵn trong mảng .

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

19 tháng 5 2022

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,dem,t,j,t1;

int main()

{

cin>>n;

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

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem=0;

for (i=1; i<=n; i++)

{

t=0;

for (j=1; j<=a[i]-1; j++)

if (a[i]%j==0) t+=j;

if (t==a[i]) dem++;

}

cout<<dem<<endl;

t1=0;

for (i=1; i<=n; i++)

if (a[i]%2==0) t1+=a[i];

cout<<t1;

return 0;

}

Đúng(0)

NH

Nguyễn Huỳnh Mai Trân

14 tháng 4 2022

Viết chương trình pascal thực hiện các công việc sau :

A) nhập 1 mảng số nguyên gồm N phần tử .

B) In ra màng hình các phần tử khác X và tính tổng các phần tử khác X

( với N và X là 2 số nguyên nhập từ bàn phím )

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

14 tháng 4 2022

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,a[1000],t;

int main()

{

cin>>n;

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

cin>>x;

t=0;

for (i=1; i<=n; i++)

if (a[i]!=x)

{

cout<<a[i]<<" ";

t+=a[i];

}

cout<<endl;

cout<<t;

return 0;

}

Đúng(0)

KX

Kim Xuyến

20 tháng 4 2021

Nhập dãy số thực a. hãy thực hiện công việc nếu các phần tử trùng nhau thì chỉ giữ lại một phần tử.1. nêu ý tưởng2. Viết chương trình trong ngôn ngữ Pascal.Mọi người giúp mình lập trình bài này với ạ. Mình tìm kiếm trên mạng chỉ có C++ thôi...

Đọc tiếp

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

20 tháng 4 2021

2:

uses crt;

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

i,n,dem,kt,j:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

b[1]:=a[1];

dem:=1;

for i:=1 to n do

begin

kt:=0;

for j:=1 to dem do

if b[j]=a[i] then kt:=1;

if kt=0 then

begin

inc(dem);

b[dem]:=a[i];

end;

for i:=1 to n do

write(a[i]:4);

readln;

end.

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP