Những câu hỏi liên quan
Quốc thuận Lê
Xem chi tiết
Phía sau một cô gái
10 tháng 4 2023 lúc 22:55

program PSMCG;

uses crt;

const N = 5;

type MangA = array[1..N] of integer;

var A: MangA;

     i, max, min, sum: integer;

begin

     for i := 1 to N do

     begin

          write('Nhap phan tu A[', i, ']: ');

          readln(A[i]);

     end;

     writeln('Mang A: ');

     for i := 1 to N do

     begin

          write(A[i], ' ');

     end;

     writeln;

     max := A[1];

     min := A[1];

     for i := 2 to N do

     begin

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

          if A[i] < min then min := A[i];

     end;

     writeln('Gia tri lon nhat la: ', max);

     writeln('Gia tri nho nhat la: ', min);

     sum := 0;

     for i := 1 to N do

     begin

          sum := sum + A[i];

     end;

     writeln('Tong gia tri trong mang A la: ', sum);

     readln;

end.

Bình luận (0)
huynh chinh
Xem chi tiết
Thanh Phong (9A5)
15 tháng 4 2023 lúc 14:55

Uses crt;

var i,n,min,max: longint;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

writeln(a[i]:3)

max:=a[1];

for i:=1 to n do begin

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

end;

writeln(max);

min:=a[1];

for i:=1 to n do begin

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

end;

writeln(min);

readln;

end.

Bình luận (0)
Thái Thiên Thành
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 2 2022 lúc 21:38

#include <bits/stdc++.h>

using namespace std;

long long a[10],i,n,t;

int main()

{

n=10;

t=0;

for (i=1; i<=n; i++)

{

cin>>a[i];

if (a[i]>3) t=t+a[i];

}

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

cout<<t;

return 0;

}

Bình luận (0)
my trần
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 8 2021 lúc 19:15

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. 

Bình luận (0)
hoàng
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 4 2021 lúc 22:23

uses crt;

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

i,n,t: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 

  write(a[i]:4);

writeln;

writeln('Gia tri dau tien la: ',a[1]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac phan tu la: ',t);

readln;

end.

Bình luận (0)
Thọ Lê Đức
Xem chi tiết
Kiều Vũ Linh
28 tháng 4 2023 lúc 16:09

Bài 23

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

i,n:integer;

s,tbc:real;

begin

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

for i:=1 to n do

begin

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

s:=s+a[i];

end;

tbc:=s/n;

writeln('Gia tri trung binh la ',tbc:10:2);

write('Cac so lon hon gia tri trung binh la: ');

for i:=1 to n do

if a[i] > tbc then write(a[i]:8);

readln

end.

Bình luận (0)
Kiều Vũ Linh
28 tháng 4 2023 lúc 16:12

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

i,n,max:integer;

begin

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

for i:=1 to n do

begin

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

end;

max:=a[1];

for i:=2 to n do

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

for i:=1 to n do

begin

if max=a[i] then write(max,' o vi tri thu ',i);

break;

readln

end.

Bình luận (0)
Nguyệt Minh
Xem chi tiết
krt-ttt
27 tháng 10 2021 lúc 20:37

mang = input()

mang = mang.split(' ')

max = 0

second = 0

for i in mang:

     if i>=max:

           max = i

for i in mang:

     if i>=second and < max:

           second = i

print('gia tri lon nhat la ', max)

print('gia tri lon thu 2 la ', second)

 

Bình luận (0)
Lê Tuấn Lâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 15:57

#include <bits/stdc++.h>

using namespace std;

long long x,n,i,nn,t;

int main()

{

cin>>n;

nn=LLONG_MAX;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

t+=x;

nn=min(nn,x);

}

cout<<nn<<" "<<t;

return 0;

}

Bình luận (0)
Hoàng Vlogs
Xem chi tiết