Em hãy viết chương trình thực hiện những việc sau:
a) Khai báo một mảng các phần tử thuộc kiểu số nguyên;
b) Nhập các phần tử của mảng từ bàn phím;
c) Hiển thị phần tử lớn nhất trong mảng.
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
NA
Nguyễn An Ninh
VIP
15 tháng 5 2023
'''python
a. DTB = []
siso = int(input("Nhập số lượng học sinh trong lớp: "))
b. for i in range(siso):
diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))
DTB.append(diem)
c. tong=sum(DTB)
d. print(f"Tổng điểm của lớp là: {tong}")'''
4 tháng 5 2021
uses crt;
var b:array[1..25]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('B[',i,']='); readln(b[i]);
end;
readln;
end.
NB
25 tháng 4 2023
program TinhTongPhanTuMang;
var
i, tong: integer;
m: array[1..50] of integer;
begin
for i := 1 to 50 do
begin
writeln('Nhap ptu thu ', i, ': ');
readln(m[i]);
end;
tong := 0;
for i := 1 to 50 do
begin
tong := tong + m[i];
end;
writeln('Tong cac ptu trong mang la: ', tong);
writeln('Cac ptu trong mang la:');
for i := 1 to 50 do
begin
writeln(m[i]);
end;
end.
7 tháng 5 2021
Câu 1:
a) var a:array[1..50]of real;
b) a[5]:=8;
c) for i:=1 to 50 do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to 50 do
write(a[i]:4);
7 tháng 5 2021
Câu 2:
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
s:=s+i;
writeln(s);
readln;
end.
HA
0
18 tháng 3 2022
uses crt;
var a:array[1..50]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
18 tháng 3 2022
uses crt;
var a:array[1..50]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
6 tháng 4 2023
program PSMCG;
uses crt;
const
size = 7;
var
arr: array[1..size] of integer;
i, sum, min, temp: integer;
avg: real;
begin
clrscr;
writeln('Nhap vao day so nguyen khong am gom 7 phan tu: ');
for i := 1 to size do
begin
readln(arr[i]);
end;
writeln('Cac phan tu trong day la: ');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
writeln();
sum := 0;
for i := 1 to size do
begin
sum := sum + arr[i];
end;
writeln('Tong cac phan tu la: ', sum);
avg := sum / size;
writeln('Trung binh cac phan tu la: ', avg:0:2);
min := arr[1];
for i := 2 to size do
begin
if(arr[i] < min) then
begin
min := arr[i];
end;
end;
writeln('Gia tri nho nhat la: ', min);
for i := 1 to size - 1 do
begin
for j := i + 1 to size do
begin
if(arr[i] < arr[j]) then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
end;
writeln('Cac phan tu da sap xep theo thu tu giam dan:');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
readln;
end.
Program Vidu;
Uses crt;
Var A:array[1..100] ò longint;
i,n,max:integer;
Begin
clrscr;
write('N= ');readln(n);
Writeln('Nhap gia tri cho mang A');
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]); { đọc vào giá trị cho A thứ i}
End;
max:=a[1];
for i:=1 to n do
if a[i]>ma then max:=a[i];
write('Phan tu lon nhat la ',max);
readln
end.