uses crt; var i,n,a,b, uc,bcnn:integer ;

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

{--- CTC tim UCLL hai so} function ucln(a,b:integer):integer;

var r:integer;

begin r:=a mod b;

while r<>0 do begin a:=b; b:=r; r:= a mod b;

end;

ucln:=b;

end;

{--- CTC chinh----} begin Write('n= ');

readln(n);

for i:=1 to n do begin write('c[',i,']=');

readln(c[i]);

end;

for i:= 1 to n do

Write(c[i]:3);

writeln;

uc:=ucln(c[1], c[2]);

bcnn:=(c[1]*c[2])div uc;

for i:=3 to n do begin uc:=ucln(uc,c[i]);

bcnn:= bcnn*c[i] div uc;

end;

Writeln('bcnn =',bcnn); readln; end.

var i,n,min,max:integer;

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

begin

Write('n=');read(n);

for i:=1 to n do

Read(a[i]);

i:=1;

max:=0;

min:=a[i];

while i<n do 

Begin

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

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

i:=i+1;

end;

writeln('Gia tri LN la:',max);

writeln('Gia tri NN la:',min);

readln;

end.

uses crt;

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

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

min:=a[1];

for i:=1 to n do 

  begin

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

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

end;

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

writeln('So be nhat la: ',min);

readln;

end.

Làm giúp bài này nhé

uses crt;

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

i,n,min,tam,j: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('Gia tri nho nhat la: ',min);

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

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

readln;

end.

a) 

Input: Dãy n số nguyên 

Output: Đếm xem trong dãy đó có bao nhiêu số nguyên dương

b) 

Bước 1: Nhập n và nhập dãy số

Bước 2: dem←0; i←1;

Bước 3: Nếu a[i]>0 thì dem←dem+1;

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất dem

Bước 7: Kết thúc

Input: Số nguyên N và dãy a1,a2,...,aN

Output: Số số nguyên có trong dãy

Thuật toán:

- Bước 1: Nhập N và dãy a1,a2,...,aN

- Bước 2: d←0; i←1;

- Bước 3: Nếu i>N thì in ra có d số dương trong dãy và kết thúc

- Bước 4: Nếu ai > 0 thì d←d+1;

- Bước 5: i←i+1, quay lại bước 3

Mình đang rất cần gấp cho môn thi ạ🥺

Python:
 

# Nhập vào dãy số
n = int(input("Nhập vào số lượng phần tử của dãy số: "))
numbers = []
for i in range(n):
    number = int(input(f"Nhập vào phần tử thứ {i+1}: "))
    numbers.append(number)

# Tìm giá trị nhỏ nhất của dãy số
min_value = min(numbers)

# In ra kết quả
print("Giá trị nhỏ nhất của dãy số là:", min_value)

C++:
 

#include <iostream>
#include <vector>
#include <algorithm>

int main() {
    // Nhập vào dãy số
    int n;
    std::cout << "Nhap vao so luong phan tu cua day so: ";
    std::cin >> n;
    std::vector<int> numbers;
    for (int i = 0; i < n; ++i) {
        int number;
        std::cout << "Nhap vao phan tu thu " << i+1 << ": ";
        std::cin >> number;
        numbers.push_back(number);
    }

    // Tìm giá trị nhỏ nhất của dãy số
    int min_value = *std::min_element(numbers.begin(), numbers.end());

    // In ra kết quả
    std::cout << "Gia tri nho nhat cua day so la: " << min_value << std::endl;

    return 0;
}

Java:

import java.util.ArrayList;
import java.util.List;
import java.util.Scanner;

public class Main {
    public static void main(String[] args) {
        // Nhập vào dãy số
        Scanner scanner = new Scanner(System.in);
        System.out.print("Nhap vao so luong phan tu cua day so: ");
        int n = scanner.nextInt();
        List<Integer> numbers = new ArrayList<>();
        for (int i = 0; i < n; ++i) {
            System.out.print("Nhap vao phan tu thu " + (i + 1) + ": ");
            int number = scanner.nextInt();
            numbers.add(number);
        }

        // Tìm giá trị nhỏ nhất của dãy số
        int min_value = numbers.stream().min(Integer::compareTo).get();

        // In ra kết quả
        System.out.println("Gia tri nho nhat cua day so la: " + min_value);
    }
}

Ruby:

# Nhập vào dãy số
print "Nhap vao so luong phan tu cua day so: "
n = gets.chomp.to_i

numbers = []
(1..n).each do |i|
  print "Nhap vao phan tu thu #{i}: "
  number = gets.chomp.to_i
  numbers << number
end

# Tìm giá trị nhỏ nhất của dãy số
min_value = numbers.min

# In ra kết quả
puts "Gia tri nho nhat cua day so la: #{min_value}"

Pascal:

program TimGiaTriNhoNhat;
var
  n, i, min_value, number: integer;
begin
  // Nhập vào số lượng phần tử của dãy số
  write('Nhap vao so luong phan tu cua day so: ');
  readln(n);

  // Nhập vào dãy số
  min_value := MaxInt;
  for i := 1 to n do
  begin
    write('Nhap vao phan tu thu ', i, ': ');
    readln(number);
    if number < min_value then
      min_value := number;
  end;

  // In ra kết quả
  writeln('Gia tri nho nhat cua day so la: ', min_value);
end.

Sai sót thì sử dụng kiến thức đã có để sửa nó nhe.

C++

#include <iostream>
#include <algorithm>
using namespace std;
int main()
{
    int n;
    cin >> n;
    int a[n];
    for (int i=0;i<n;i++)
        cin >> a[i];
    cout << *min_element(a,a+n);
    return 0;
}

uses crt;

var a:array[1..200]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('Gia tri lon nhat la: ',max);

write('Vi tri la: ');

for i:=1 to n do 

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

readln;

end.

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.

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)

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,k,dem;

int main()

{

cin>>n>>k;

dem=0;

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

{

cin>>x;

if (x==k) dem++;

}

cout<<dem;

return 0;

}