Những câu hỏi liên quan
Phạm Phương
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 9:38

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

readln;

end.

Bình luận (0)
jennierubyjane
Xem chi tiết
Phía sau một cô gái
23 tháng 4 2023 lúc 22:21

program mang;

uses crt;

var

      N, i: integer;

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

      sum, average: double;

begin

      clrscr;

      write('Nhap so phan tu mang: ');

      readln(N);

      sum := 0;

      for i:= 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            sum := sum + a[i];

      end;

      writeln('Cac phan tu cua mang la:');

      for i:= 1 to N do

            write(a[i], ' ');

      average := sum / N;

      writeln('Tong cac phan tu cua mang la: ', sum:0:2);

      writeln('Trung binh cong cua mang la: ', average:0:2);

      readln;

end.

Bình luận (0)
Minh Ngọc
Xem chi tiết
Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 23:26

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

readln;

end.

Bình luận (0)
TÌNH ĐIÊN DẠI
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Minh Lệ
17 tháng 5 2021 lúc 21:57

Program HOC24;

var n,d,i: integer;

B: array[1..100] of integer;

t: longint;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

d:=0; t:=0;

for i:=1 to n do 

if b[i]>0 then

begin

d:=d+1;

t:=t+b[i];

end;

writeln('Tong cac so duong trong day so la: ',t);

write('Co ',d,' so duong trong day');

readln

end.

Bình luận (0)
Lê Thị Thu Phương
7 tháng 6 2021 lúc 21:22

uses crt;
var b:array[1..100] of longint;
      n,i,d,s:longint;
begin
      clrscr;
      write('n='); readln(n);
      for i:=1 to n do 
            begin
                  write('a[',i,']: '); readln(b[i]);
                  if b[i]>0 then begin
                        inc(d);
                        inc(s,b[i]);
                  end;
            end;
      writeln('Tong cac so duong: ',s);
      writeln('Co ',d,' so duong');
      readln;
end.

Bình luận (0)
Nông Thị Trúc An
Xem chi tiết
Nông Thị Trúc An
17 tháng 4 2022 lúc 22:13

Giúp mình giải đuyy 😮‍💨😵‍💫

Bình luận (0)
Nguyễn Lê Phước Thịnh
18 tháng 4 2022 lúc 7:24

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,t,ln,nn;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

t=0;

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

t+=a[i];

ln=a[1];

nn=a[1];

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

{

ln=max(ln,a[i]);

nn=min(nn,a[i]);

}

cout<<t<<endl;

cout<<fixed<<setprecision(2)<<(t*1.0)/(n*1.0)<<endl;

cout<<ln<<endl;

cout<<nn;

return 0;

}

Bình luận (0)
Tấn Trọng Huỳnh
Xem chi tiết
Thuy La
Xem chi tiết
Minh Lệ
13 tháng 5 2022 lúc 23:16

Program HOC24;

var i,n: integer;

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

t: real;

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do t:=t+a[i];

t:=t/n;

write('Trung binh cong cua day so la: ',t:5:2); 

readln

end.

Bình luận (0)