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

i,k:integer;

p:longint;

begin

write('k = ');readln(k);

p:=1;

for i:=1 to k do

begin

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

if a[i]<30 then p:=p*a[i];

end;

write('Tich la ',p);

readln

end.

b) 

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

i,k:integer;

s:longint;

begin

write('k = ');readln(k);

for i:=1 to k do

begin

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

if a[i]<100 then s:=s+a[i];

end;

write('Tong la ',s);

readln

end.

program max_min;

uses crt;

var i,n,max,min:integer;

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

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

writeln;

max:=a[1];min:=a[1];

for i:=1 to n do

begin

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

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

end;

writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);

readln;

end.

uses crt;
var a:array[1..1000000] of longint;
      n,i,max,min:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do 
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      write('Day so vua nhap: ');
      for i:=1 to n do write(a[i],' '); writeln;
      max:=a[1];min:=a[1];
      for i:=2 to n do 
            begin
                  if a[i]>max then max:=a[i];
                  if a[i]<min then min:=a[i];
            end;
      writeln('GTLN: ',max);
      writeln('GTNN: ',min);
      readln;
end.

uses crt;

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

i,n,nn,s:integer;

begin

clrscr;

readln(n);

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

nn:=a[1];

s:=1;

for i:=1 to n do 

begin

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

s:=s*a[i];

end;

writeln(nn);

writeln(s);

readln;

end.

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

#include <bits/stdc++.h>

using namespace std;

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

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=2; i<=n; i++)

{

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

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

}

cout<<t<<endl;

cout<<ln<<" "<<nn;

return 0;

}

Var a:array[1..200] of integer;

i,n,s,max,min:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

s:=a[1];

max:=a[1];

min:=a[1];

For i:=2 to n do

Begin

s:=s+a[i];

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

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

End;

Writeln('Tong la ',s);

Writeln('So lon nhat la ',max);

Write('So nho nhat la ',min);

Readln;

End.

Program HOC24;

var min,max,i,n: integer;

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

begin

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:=2 to n do

begin

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

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

end;

writeln('Gia tri lon nhat la: ',max); 

write('Gia tri nho nhat la: ',min);

readln

end.