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.

27 tháng 4 2019

Câu hỏi của Thị Ngọc Thảo Đinh - Tin học lớp 8 | Học trực tuyến c

27 tháng 4 2019

Lời giải :

program hotrotinhoc ;

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

max,i,n : integer ;

begin

write('Nhap do dai cua mang :'); readln(n);

writeln('Nhap gia cua cac phan tu');

for i:= 1 to n do

begin

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

end;

max:=a[1];

for i:= 1 to n do

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

write('So lon nhat trong day so la :',max);

readln

end.

4 tháng 5 2022

Program HOC24;

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

i,n,max: integer;

begin

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': '); readln(a[i]);

end;

t:=a[1];

for i:=2 to n do if a[i]>max then max:=a[i];

writeln('So lon nhat trong mang la: ',max);

write('Vi tri cua cac phan tu do la: ');

for i:=1 to n do if a[i]=max then write(i,' );

readln

end.

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.

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.

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.

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 2022

Var a:array[1..12] of integer;

i,n,max:integer;

Begin

For i:=1 to 12 do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

For i:=2 to 12 do

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

Write('So lon nhat la ',max);

Readln;

End.

uses crt;

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

i,n,dem,max,t,min,dem1:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

dem:=0;

max:=-32000;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

dem:=dem+1;

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

end;

if dem=0 then writeln('Trong day khong co so chan')

else begin

writeln('So so chan la: ',dem);

writeln('So chan lon nhat la: ',max);

end;

t:=0;

for i:=1 to n do 

  if i mod 2=1 then t:=t+a[i];

writeln('Tong cac so o vi tri le la: ',t);

min:=maxint;

dem1:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then

begin  

inc(dem1);

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

end;

if dem1=0 then writeln('Trong day khong co so le')

else writeln('So le nho nhat la: ',min);

readln;

end.