Em hãy viết chương trình nhập số nguyên n từ bàn phím sau đó nhập dãy số gồm n phần tử rồi thực hiện các yêu cầu sau:- hiển thị dãy số vừa nhập ra màn hình theo hàng ngang, mỗi số cách nhau 4 dấu cách...

Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.a. In ra màn hình giá trị của các phần tử vừa nhập Tính tổng các số vừa nhập và in kết quả ra màn...

0

NT

Ngọc Ty

24 tháng 4 2023

1

KV

Kiều Vũ Linh

24 tháng 4 2023

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

i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.

TH

Trần Hà Thư

6 tháng 5 2021

Viết chương trình nhập vào từ 1 bàn phím 1 dãy n số nguyên( n nhập từ bàn phím). Sau đó hiển thị ra màn hình các số chẵn của dãy số vừa nhập.

2

NL

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

7 tháng 5 2021

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

readln;

end.

LT

Lê Thị Thu Phương

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
n,i:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Cac so chan: ');
for i:=1 to n do if a[i] mod 2=0 then write(a[i],' ');
readln;
end.

Đúng(0)

TT

Tuấn Trần thị

10 tháng 5 2023

Câu 1. Viết chương trình thực hiện yêu cầu sau: a, Sử dụng mảng để nhập từ bàn phím các phân tử của 1 dãy số có kiểu số nguyên? Biết độ dài của dãy số được nhập từ bàn phím . b, In ra màn hình các số vừa nhập của dãy số đó. c, In ra màn hình số lớn nhất trong dãy số. Mn giúp mik với mik cần gấp.mik c.ơn

1

KV

Kiều Vũ Linh

10 tháng 5 2023

Var a:array:[1..1000] of integer;

i,n,max:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap diem thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to n do

Write(a[i]:8);

writeln;

max:=a[1];

For i:=2 to n do

if a[i] > max then max:=a[i];

write('So lon nhat la ',max);

Readln

End.

Cho dãy N số nguyên ( với n nhập vào từ bàn phím) . Viết chương trình thực hiện các yêu cầu sau. a. Nhập vào dãy số n và giá trị từng phần của dãy. b. Xuất giá trị của dãy vừa nhập. c. Tính tổng các phần tử của dãy. d. In ra màn hình giá trị Max, Min của dãy. e. Tính tổng các phần tử dương của dãy. f. Tính tổng các phần tử âm của dãy. g. Tính tổng các phần tử chẵn của dãy. h. Tính...

HH

Huy Hoang Nguyen

8 tháng 4 2023

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 các phần tử mảng từ bàn phím.- Hiển thị mảng vừa nhập ra màn hình.- In ra màn hình các số chính phương trong mảng.- Đếm trong mảng có bao nhiêu phần tử có giá trị bằng 5. Nếu không có phần tử nào có giá trị bằng 5 thì in ra màn hình thông báo “Không có phần tử nào thỏa mãn điều...

0

HH

Huy Hoàng Phạm

20 tháng 12 2021

#Tin học lớp 11

1

NL

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

20 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

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

cin>>a[i];

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

return 0;

}

NH

Ngọc Hân Lương Thị

29 tháng 4 2023

Em hãy viết chương trình nhập dãy số nguyên gồm a.X phần tử từ bang phím b. Tính tổng các phần tử chia hết cho 2 trong dãy số c.In ra màn hình kết quả tính tổng và các giá trị dãy số đã nhập theo hàng ngang và mỗi số cách nhau 5 khoảng trống

bài 1:Viết chương trình nhập vào một mảng số nguyên gồm n phần tử(n<100) nhập từ bàn phím thực hiện các công việc sau: a)In ra màn hình các phần tử của mảng vừa nhập.b) Sắp xếp dãy số nguyên theo thứ tự tăng dần.c) Nhập số nguyên x bất kì.Tính số chắn lớn nhất không được vượt quá...

1

KV

Kiều Vũ Linh

29 tháng 4 2023

Var a:array[1..1000] of integer;

i,x:integer;

s:longint;

Begin

Write('x = ');readln(x);

For i:=1 to x do

Begin

Write('Nhap phan tu thu ',i);readln(a[i]);

if a[i] mod 2 = 0 then s:=s+a[i];

End;

writeln('Tong cac so chia het cho 2 la ',s);

write('Cac so vua nhap la ');

for i:=1 to x do write(a[i]:5);

Readln

End.

Đúng(3)

BP

bui pham phuong Uyen

27 tháng 1 2021

#Tin học lớp 11

1

NL

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

27 tháng 1 2021

Bài 1:

uses crt;

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

i,n,kt,max,x,j,tam:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Mang ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day tang dan la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

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

max:=0;

kt:=0;

for i:=1 to n do

if (a[i] mod 2=0) and (a[i]<=x) then

begin

if max<a[i] then max:=a[i];

kt:=1;

end;

if kt=0 then writeln('Trong day khong co so le')

else writeln('So chan lon nhat khong vuot qua ',x,' la: ',max);

readln;

end.

K

k_o_t_en

8 tháng 5 2023

Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150).

a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống.

b. Tính tổng các phần tử chẵn và in kết quả ra màn hình.

Viết chương trình nhập dãy số nguyên A gồm N phần tử (N được nhập vào từ bàn phím (N<=150). a. In dãy số ra màn hình, mỗi phần tử cách nhau một ký tự trống. b. Tính tổng các phần tử chẵn và in kết quả ra màn...

1

PS

Phía sau một cô gái

8 tháng 5 2023

program BaiTap;

var

A: array[1..150] of integer;

N, i, sum: integer;

begin

write('Nhap so phan tu cua day A (N <= 150): ');

readln(N);

for i := 1 to N do

begin

write('Nhap phan tu thu ', i, ': ');

readln(A[i]);

end;

writeln('Day so vua nhap la:');

for i := 1 to N do

write(A[i], ' ');

writeln;

sum := 0;

for i := 1 to N do

if A[i] mod 2 = 0 then

sum := sum + A[i];

writeln('Tong cac phan tu chan trong day la: ', sum);

readln;

end.

Đúng(2)

K

k_o_t_en

8 tháng 5 2023

cảm ơn bạn ạ

Đúng(0)

HP

hà phương

8 tháng 5 2023