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

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

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

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;

}

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

-         Input : số nguyên N=3 và dãy số nguyên a₁=4 , a₂=8 , a₃=5

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

·        Ý tưởng :

 N=3 ( a₁=4 , a₂=8 , a₃=5 )

·        Thuật toán :

B1 : Nhập N=3 và dãy số nguyên a₁=4 , a₂=8 , a₃=5

B2 : Max <- a₁=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 a_I=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 a_I=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=a₁=4 

#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;

}

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.

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.