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.

uses crt;

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

i,n,ln,nn:integer;

begin

clrscr;

readln(n);

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

ln:=a[1];

nn:=a[1];

for i:=1 to n do 

 begin

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

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

end;

writeln(ln);

writeln(nn);

readln;

end.

20 tháng 4 2022

tìm cả min lẫn max mà bạn

28 tháng 12 2020

Input: dãy số nguyên gồm n số được nhập từ bạn phím

Output: số lớn nhất, bé nhất trong dãy

28 tháng 12 2020

B1: nhập dãy số nguyên

B2: gán max:=a[1]; min:=a[1] 

B3: nếu max<a[i] thì max:=a[i]; min>a[i] then min:=a[i]

B4: in kết quả ra màn hình

10 tháng 12 2021

huhu giúp với ạ cần gấp lắm

10 tháng 12 2021

1:

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

12 tháng 10 2021

·        Xác định bài toán :

-         Input : số nguyên N=3 và dãy số nguyên a1=4 , a2=8 , a3=5

-         Output : Gía trị lớn nhất Max của dãy số nguyên

·        Ý tưởng :

 N=3 ( a1=4 , a2=8 , a3=5 )

·        Thuật toán :

B1 : Nhập N=3 và dãy số nguyên a1=4 , a2=8 , a3=5

B2 : Max <- a1=4 , i <- 2

B3 : Nếu i=2 > N=3 ( sai ) thì trả về giá trị Max . Kết thúc

B4 :

       1.     Nếu aI=2 = 8 > Max=4 ( đúng )

        2.     i <-- i+1=2+1=3 rồi quay lại B3 .

B3 : Nếu i =3 > N=3 ( sai ) thì trả về giá trị Max . Kết thúc  

B4 :

            1.     Nếu aI=3 = 5 > Max=4 ( đúng )

             2.   i <- i+1=3+1=4 rồi quay lại B3 .

B3 : Nếu i=4 > N=3 ( đúng ) thì trả về giá trị Max=4 . Kết thúc

            Vậy giá trị lớn nhất Max=a1=4 

15 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,max;

int main()

{

cin>>n;

cin>>x;

max=x;

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

{

cin>>x;

if (max<=x) max=x;

}

cout<<max;

return 0;

}

26 tháng 7 2023

n = int(input("Nhap so phan tu cua day: "))

a = [ ]

for i in range(n):

    a.append(int(input("Nhap phan tu thu " + str(i+1) + ": ")))

max_value = a[0]

max_index = 0

for i in range(1, n):

    if a[i] > max_value:

        max_value = a[i]

        max_index = i

print("Gia tri lon nhat trong day la:", max_value, "tai vi tri", max_index+1)

uses crt;

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

i,n,min,dem: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];

dem:=0;

for i:=1 to n do 

  if min=a[i] then inc(dem);

writeln('So phan tu co gia tri nho nhat trong day la: ',dem);

readln;

end.

5 tháng 1 2021

Mọi người làm nhanh hộ ạ, em đang cần gấp ạ, phiền mọi người ạ

 

uses crt;

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

i,n,min,dem: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];

dem:=0;

for i:=1 to n do 

  if min=a[i] then inc(dem);

writeln('So phan tu co gia tri nho nhat trong day la: ',dem);

readln;

end.