Viết chương trình thực hiện các yêu cầu sau:1.Đọc một số tự nhiên n

Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang...

0

TU

Thư Uyên

26 tháng 3 2021

3

NL

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

26 tháng 3 2021

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

NL

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

26 tháng 3 2021

Bài 2:

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

BM

Bùi Minh Dũng

26 tháng 5 2021

Viết chương trình Pascal thực hiện các yêu cầu sau:

- Nhập vào một dãy số gồm N số nguyên

- Hiển thị dãy số vừa nhập

1

NA

nguyễn an phát

26 tháng 5 2021

program max_min;

uses crt;

var i,n:integer;

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

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

H

hoquanghieu

12 tháng 4 2022

cho mảng số nguyên A gồm n phần tử (N<=100) viết chương trình thực hiện các yêu cầu sau:

-viết thủ tục nhập dữ liệu cho mảng A

-sử dụng thủ tục để sắp xếp lại các mảng theo thứ tự không tăng

#Tin học lớp 11

2

NG

Nguyễn Giang Ank

12 tháng 4 2022

uses crt;

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

i,n,dem,t,tb:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

t:=0;

for i:=1 to n do

if a[i]>0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

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

writeln('Tong cac phan tu duong la: ',t);

writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);

readln;

end.

H

hoquanghieu

12 tháng 4 2022

đúng không đây ạ

PL

Phước Lâm Thạch

8 tháng 5 2023

Sử dụng chương trình con để viết chương trình thực hiện yêu cầu sau. a.nhập vào mảng 1 chiều có n phần tử (n

#Tin học lớp 11

0

BM

Bùi Minh Dũng

26 tháng 5 2021

Viết chương trình Pascal thực hiện các yêu cầu sau:

- Nhập vào một dãy số gồm N số nguyên

- Hiển thị dãy số vừa nhập

- Tìm giá trị lớn nhất, nhỏ nhất trong dãy số trên

2

NA

nguyễn an phát

26 tháng 5 2021

program max_min;

uses crt;

var i,n,max,min:integer;

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

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

writeln;

max:=a[1];min:=a[1];

for i:=1 to n do

begin

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

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

end;

writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);

readln;

end.

LT

Lê Thị Thu Phương

7 tháng 6 2021

uses crt;
var a:array[1..1000000] of longint;
n,i,max,min: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('Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('GTLN: ',max);
writeln('GTNN: ',min);
readln;
end.

Câu 1: Viết cú pháp lệnh khai báo biến mảng? Khai báo 2 biến x,y kiểu mảng có 50 phần tử nguyên. Câu 2: Viết chương trình nhập vào một dãy (mảng) gồm n số và in ra các số chia hết cho 3 đã nhập. Em hãy thực hiện các yêu cầu sau (không viết chương trình): - Em hãy xác định input, output của bài toán - Em hãy khai báo các biến sử dụng trong bài trên Câu 3: Viết chương trình nhập vào n, tính...

UA

Utfg aghjn

27 tháng 3 2022

0

NT

Nguyễn Thị Thu Thúy

13 tháng 5 2021

Viết chương trình thực hiện các yêu cầu sau:

+ Nhập vào 1 mảng số nguyên

+In ra mảng vừa nhập

+In ra các số chẵn trong mảng

1

NL

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

13 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;

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

for i:=1 to n do

write(a[i]:4);

writeln;

writeln('Day cac so chan la: ');

for i:=1 to n do

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

readln;

end.

viết 1 chương trình thực hiện các yêu cầu sau:a/Nhập vào dãy số n số tự nhiên bất kì nhỏ hơn 100 từ bàn phím.b/Tính tích các phần tử của dãy số.c/Tính tổng các phần tử của dãy số.d/In ra màn hình số lớn nhất trong các dãy số ở trên.e/In ra màn hình số lớn nhất trong các dãy số ở trên.CẦN GẤP Ạ! CẢM ƠN...

NT

Nguyễn Thùy Linh

13 tháng 4 2022

1

NL

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

14 tháng 4 2022

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,s,t,ln,nn;

int main()

{

cin>>n;

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

cin>>a[i];

s=1;

t=0;

ln=a[1];

nn=a[1];

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

{

s=s*a[i];

t+=a[i];

ln=max(ln,a[i]);

nn=min(nn,a[i]);

}

cout<<s<<endl;

cout<<t<<endl;

cout<<ln<<endl;

cout<<nn;

return 0;

}

viết chương trình thực hiện các yêu cầu sau:a) nhập một dãy số có n phân tửb)in dãy đã nhập ra màn hình giúp mình...

MT

minh trang

20 tháng 4 2023

1

MT

minh trang

20 tháng 4 2023

giúp tui với..