Viết 2 chương trình Pascal: Nhập 10 phần tử và tìm số lớn nhất trong 10 phân tử ấy.
CT1: không sử dụng biến mảng
CT2: sử dụng biến mảng
So sánh 2 ct trên.
Giúp mình nha! Sắp KT học kì tin rồi.
Thanks các bạn nhiều!
Những câu hỏi liên quan
Viết 2 chương trình Pascal: Nhập 10 phần tử và tìm số lớn nhất trong 10 phân tử ấy.
CT1: không sử dụng biến mảng
CT2: sử dụng biến mảng
So sánh 2 ct trên.
Giúp mình nha! Sắp KT học kì tin rồi.
Thanks các bạn nhiều!
CT2:
Program Max_10;
Uses crt;
Var: i,Max:integer;
a: array[1..10] of integer;
Begin
Clrscr;
For i:= 1 to 10 do
Write('Hay nhap so thu ',i,' : '); Readln(a[i]);
Max:= a[1];
For i:= 2 to 10 do
if a[i] > Max then Max:= a[i];
Writeln('So lon nhat trong 10 phan tu ban vua nhap la ',Max);
Readln;
End.
Đúng 0
Bình luận (0)
viết chương trình pascal sử dụng biến mảng được nhập từ bàn phím các phần tử của dãy số rồi trình bày dãy số đó theo hàng . Độ dài của dãy số nhập từ bàn phím
GIÚP MÌNH MAI MÌNH KTRA HỌC KÌ RỒI PLSS!!
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
Đúng 3
Bình luận (0)
Viết chương trình tìm giá trị lớn nhất trong 10 phần tử kiểu số nguyên từ bàn phím (Sử dụng biến mảng)
Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy và in ra màn hình số lớn nhất của dãy số vừa nhập từ bàn phím.
a) Viết chương trình nhập điểm kiểm tra học kỳ môn tin cho N học sinh và in ra màn hình.Với N và điểm kiểm tra được nhập từ bàn phím (sử dụng biến mảng)
b) Viết chương trình nhập vào một mảng có n(n<50) phần tử và tính tổng các phần tử trong mảng đó?
a:
#include <bits/stdc++.h>
using namespace std;
double a[1000];
int n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
b:
#include <bits/stdc++.h>
using namespace std;
long long a[50],n,i,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t;
return 0;
}
Đúng 3
Bình luận (1)
Viết chương trình sử dụng biến mảng nhập vào một dãy n số nguyên rồi in ra màn hình các phần tử lớn hơn không và chia hết cho 5 từ dãy số đó. Mình sẽ tick cho bạn nào giúp mình
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]>0) and (a[i] mod 5=0) then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài dãy số được nhập từ bàn phím. In ra màng hình số lớn nhất của dãy số.
uses crt;
var n,i:integer;
a:array[1..100] of integer;
begin
clrscr
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘day so da nhap:’);
for i:=1 to n do write(a[i]:2);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..100]of integer;
i,n,max: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;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('So lon nhat la: ',max);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var i,n,max:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap so luong phan tu: ');readln(n);
for i:=1 to n do
begin
write('A[',i,']=');readln(a[i]);
end;
max:=A[1];
for i:=2 to n do
if max<A[i] then max:=a[i];
write('so lon nhat trong day: ',max);
readln;
end.
Đúng 0
Bình luận (0)
sử dụng free pascal viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy N số tự nhiên và viết ra màn hình? độ dài của dãy cũng được nhập từ bàn phím
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal sử dụng biến mảng để nhập và tính tổng 10 số tự nhiên liên tiếp
uses crt;
var a:array[1..10]of integer;
n,i,t:integer;
begin
clrscr;
n:=10;
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(t);
readln;
end.
Đúng 0
Bình luận (0)