Những câu hỏi liên quan
SM
Xem chi tiết
PP
Xem chi tiết
TT
Xem chi tiết
NT
20 tháng 4 2021 lúc 20:47

Đề 1: 

uses crt;

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

i,n,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

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

writeln(min);

readln;

end.

Bình luận (0)
NT
20 tháng 4 2021 lúc 20:48

Đề 2:

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

for i:=1 to n do 

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

writeln(max);

readln;

end.

Bình luận (0)
KH
Xem chi tiết
NL
21 tháng 4 2021 lúc 9:53

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

      n,i,max:longint;

begin

read(n);   {nhập số phần tử trong dãy}

for i:=1 to n do read(a[i]);   {nhập giá trị các phần tử}

max:=a[1];  {gán max=giá trị của phần tử thứ nhất}

for i:=2 to n do

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

write('gia tri lon nhat trong day la: ',max);

end.

Ấn đồng thời alt+f5 để xem kq nhé!!!

Đánh giá zùm nhe :)

 

Bình luận (0)
NT
21 tháng 4 2021 lúc 19:34

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

max:=a[1];

for i:=1 to n do 

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

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

readln;

end.

Bình luận (0)
MD
Xem chi tiết
NT
10 tháng 5 2021 lúc 9:57

*Viết chương trình nhập 10 số nguyên từ bàn phím. In ra màn hình dãy số vừa nhập

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

for i:=1 to 10 do 

  write(a[i]:4);

readln;

end.

Bình luận (0)
NT
10 tháng 5 2021 lúc 9:58

*Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

for i:=1 to 10 do 

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Bình luận (0)
NT
10 tháng 5 2021 lúc 9:59

*Viết chương chình nhập N số nguyên từ bàn phím in ra màn hình tổng các số cần nhập

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;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.

Bình luận (0)
LB
Xem chi tiết
BT
30 tháng 12 2020 lúc 19:02

tự làm là nhanh nhất

ai đòng ý xin 1 ý kiến

Bình luận (2)
LB
Xem chi tiết
HN
11 tháng 11 2016 lúc 18:51

1.

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

for i:=1 to 10 do s:=s+1;

writeln ('tong cua s=',s);

readln

end.

2.

program tinhtong;

uses crt;

var i,L,s:integer;

begin

write('nhap gia tri L='); readln(L);

s:=0;

for i:=1 to L do s:=s+1;

writeln('tong cua s=',s);

readln

end.

 

 

Bình luận (1)
ML
Xem chi tiết
H24
14 tháng 10 2023 lúc 21:21

- Học sinh tự thực hiện tạo chương trình như sau và tiến hành kiểm thử.

- Gỡ lỗi: Chuyển lệnh gán giá trị ban đầu S = 0 ra khỏi điều kiện lặp.


loading...
Bình luận (0)
NA
Xem chi tiết
NA
17 tháng 4 2022 lúc 22:13

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

Bình luận (0)
NT
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)