Khai báo mảng 1 chiều lưu trữ 300 phần tử số nguyên có giá trị trong khoảng từ -255 đến 255 bằng cách trực tiếp và gián tiếp
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
KV
2 tháng 5 2022
Var a:array[1..30] of integer;
i,n,d,max:integer;
Begin
Write('Nhap so luong phan tu cua mang ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
End;
max:=a[1];
For i:=2 to n do
Begin
If a[i] > max then
Begin
max:=a[i];
d:=i;
End;
End;
Write('Phan tu lon nhat la ',max,' o vi tri ',d);
Readln;
End.
KV
27 tháng 4 2023
Var a:array[1..30] of integer;
i,max,d:integer;
Begin
For i:=1 to 30 do
Begin
Repeat
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
Until a[i]<=255;
End;
max:=a[1];
d:=1;
For i:=2 to 30 do
If a[i] > max then
Begin
max:=a[i];
d:=i;
End;
Write('Phan tu lon nhat la ',max,' tai vi tri ',i);
Readln
End.
ML
22 tháng 4 2022
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
tbc: real;
t: longint;
begin
write('Nhap N: '); readln(n);
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('Tong cac phan tu cua mang la: ',t);
d:=0;
for i:=1 to n do if a[i]=5 then d:=d+1;
writeln('Co ',d,' phan tu co gia tri bang 5');
tbc:=0;
for i:=1 to n do if a[i] mod 2=1 then tbc:=tbc+a[i];
tbc:=tbc/n;
writeln('Trung binh cong cac phan tu le la: ',tbc:6:2);
write('Mang sau khi thay la: ');
for i:=1 to n do if a[i]=0 then a[i]:=10;
for i:=1 to n do write(a[i],' ');
readln
end.
24 tháng 2 2022
Câu 2:
uses crt;
var a:array[1..300]of integer;
i,n,t:integer;
begin
clrscr;
randomize;
cin>>n;
for i:=1 to n do a[i]:=random(500);
t:=0;
for i:=1 to n do if a[i]=150 then t:=t+a[i];
writeln(t);
readln;
end.
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}")'''
21 tháng 2 2022
uses crt;
var i,n,k:integer;
a:array[1..100]of integer;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
readln(k);
kt:=false;
for i:=1 to n do
if a[i]=k then kt:=true;
if (kt=true) then write('Co k trong mang')
else writeln('Khong co k trong mang');
readln;
end.
Trực tiếp: Var a:array[1..300]of byte;
Gián tiếp:
Type: mang=array[1..300]of byte;
Var a:mang;