viết chương trinh nhập tù bàn phím 1 mảng điểm toán của 30 hs.Xét và in ra màn hình những bạn có điểm số lớn hơn 6,5
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.
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
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.
a) Viết chương tình nhập vào từ bàn phím mảng A gồm n số nguyên.In ra màn hình số nguyên lớn nhất
b) Viết chương trình nhập vào từ bàn phím mảng B gồm n số nguyên.In ra màn hình số nguyên bé nhất
a)
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;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
b)
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Viết chương tình sử dụng biến mảng để nhập từ bàn phím họ tên(hoten);ngày sinh(NS),Điểm Toán(Dtoan);Điểm Văn (Dvan) của các bạn học sinh trong lớp em(có 45hs).In ra màn hình tổng Điểm trung bình(DTB) của các bạn trong lớp.
Làm hộ mình với ạ,ngày mai mình thi rồi
uses crt;
var NS:array[1..100] of integer; Dtoan,Dvan,Dtb:array[1..100] of real;
hoten:array[1..100] of string; i:byte;
begin
clrscr;
for i:=1 to 45 do
begin
write('Nhap ten cua hoc sinh thu',i,':'); readln(hoten[i]);
write('Nhap ngay sinh:'); readln(NS[i]);
write('Nhap diem toan:'); readln(Dtoan[i]);
write ('Nhap diem van:'); readln(Dvan[i]);
Dtb[i]:=(Dtoan[i]+Dvan[i])/2;
end;
writeln('Diem trung binh cua cac ban trong lop la:');
for i:=1 to 45 do
writeln(hoten[i],':',Dtb[i]:1:2);
readln;
end.
Tham khảo thui!
viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình số lớn nhất ? (sử dụng biến mảng )
uses crt;
var n,i,max : integer;
a : array[1..100] of integer;
begin
clrscr;
write('Nhap so n :'); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' la : '); readln(a[i]);
end;
max:=a[1];
for i:=2 to n do if max<a[i] then max:=a[i];
write('So *** nhat trong mang la :', max);
min:=a[1];
for i:=2 to n do if min>a[i] then min:=a[i];
write('So nho nhat trong mang la :', min);
readln
end.
Câu 1 (2 điểm): Nhập n nguyên dương (n<=100) và mảng A gồm n phần tử nguyên . Viết chương trình:
Đưa ra phần tử lớn nhất cùng chỉ số của nó. (1 điểm)
Tính tổng các phần tử của mảng A. (1 điểm)
Câu 2 (1 điểm): Nhập một xâu từ bàn phím, đưa ra màn hình xâu sau khi đã được chuẩn hóa (Xâu chuẩn hóa là xâu đã loại bỏ dấu cách)
Hãy mô tả thuật toán và Viết chương trình nhập điểm kiểm tra học kỳ môn Tin học cho N học sinh và in ra màn hình học sinh có điểm Tin học cao nhất. Với N và điểm kiểm tra của từng học sinh được nhập từ bàn phím (sử dụng biến mảng).
Đây là code Pascal để nhập và in điểm kiểm tra học kì môn tin cho N của từng học sinh:
program DiemKT;
var
N, i: integer;
diem: array1..100 of integer;
begin
write('Nhap so hoc sinh: ');
readln(N);
for i := 1 to N do
begin
write('Nhap diem kiem tra hoc ki cua hoc sinh thu ', i, ': ');
readln(diemi);
end;
writeln('Diem kiem tra hoc ki cua ', N, ' hoc sinh la:');
for i := 1 to N do
writeln('Hoc sinh thu ', i, ': ', diemi);
end.
Viết chương trình:
- Nhập mảng gồm n phần tử, với n được nhập vào từ bàn phím
- In mảng lên màn hình
- In ra màn hình số phần tử chia hết cho 2
- Tính và in ra màn hình tổng các phần tử của mảng
#include <bits/stdc++.h>
using namespace std;
long long a[10000],n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>a[i];
t=t+a[i];
}
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
dem=0;
for (i=1; i<=n; i++)
if (a[i] %2==0) dem++;
cout<<dem<<endl;
cout<<t;
return 0;
}
Câu2: viết chương trình thực hiện yêu cầu sau . a, Sử dụng biến mảng để nhập từ bàn phím điểm trung bình (ĐTB) của 50 bạn học sinh trong lớp. b,In rs màn hình (ĐTB) của học sinh . c,In ra màn hình số lớn nhất trong dãy số . Mn giúp mik vs mik cần gấp.mik c.ơn
Var a:array:[1..50] of real;
i,max:integer;
Begin
For i:=1 to 50 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
Writeln;
max:=a[1];
For i:=2 to 50 do
if a[i]>max then max:=a[i];
Write('Diem trung binh lon nhat la ',max:10:2);
Readln
End.
Var a:array:[1..50] of real;
i:integer;
max:real;
Begin
For i:=1 to 50 do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
writeln;
max:=a[1];
For i:=2 to 50 do
if a[i] > max then max:=a[i];
write('Diem lon nhat la ',max:10:2);
Readln
End.