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.

25 tháng 8 2023

Mình sử dụng ngôn ngữ c++:

#include <bits/stdc++.h>

using namespace std;
long long a[5];
int main()
{
    for(int i=1;i<=4;i++){
        cin>>a[i];
    }
    sort(a+1,a+5);
    cout<<a[1];
    return 0;
}

2 tháng 12 2021

Tham khảo:

Câu 1: 

uses crt;

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

max,i:integer;

begin

clrscr;

for i:=1 to 5 do 

  begin

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

end;

max:=a[1];

for i:=1 to 5 do 

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

writeln(max);

readln;

end.

Câu 2: 

uses crt;

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

min,i:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

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

end;

min:=a[1];

for i:=1 to 6 do 

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

writeln(min);

readln;

end.

15 tháng 5 2022

Program Trungbinhcong;

Uses crt;

Var a,b,c,d,tb: integer;

Begin

Clrscr;

Write('Nhap so thu nhat:'); Readln(a);

Write('Nhap so thu hai:'); Readln(b);

Write('Nhap so thu ba:'); Readln(c);

Write('Nhap so thu tu:'); Readln(d);

tb:=(a+b+c+d)/4;

Writeln('Trung binh cong cua 4 so la:',tb:4:2);

Readln

End.

6 tháng 8 2023

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

6 tháng 8 2023

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.

uses crt;

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

i,n,t,ln,nn:integer;

begin

clrscr;

readln(n);

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

t:=0;

for i:=1 to n do

  if a[i]>0 then t:=t+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(t);

writeln(ln);

writeln(nn);

readln;

end.

28 tháng 5 2022

cảm ơn bác nhiều nhe

 

4 tháng 5 2023

program TimMinMaxTrungBinh;

var

      N, i, max, min, sum: integer;

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

      TB, minTB, maxTB: real;

begin

      writeln('Nhap so nguyen duong N:');

      readln(N);

      sum := 0;

      for i := 1 to N do

      begin

            write('Nhap so thu ', i, ': ');

            readln(a[i]);

            sum := sum + 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;

      TB := sum / N;

      minTB := TB;

      maxTB := TB;

      for i := 1 to N do

      begin

            if (a[i] < TB) and (a[i] < minTB) then

                  minTB := a[i];

            if (a[i] > TB) and (a[i] > maxTB) then

                  maxTB := a[i];

      end;

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

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

      writeln('Gia tri trung binh la: ', TB:2:2);

      if minTB = TB then

            writeln('Khong co gia tri nao nho hon TB')

      else

            writeln('Gia tri nho nhat < TB la: ', minTB);

      if maxTB = TB then

            writeln('Khong co gia tri nao lon hon TB')

      else

            writeln('Gia tri lon nhat > TB la: ', maxTB);

      readln;

end.

 
  
12 tháng 5 2021

Câu 2:

Program nii;

Uses crt;

Var a,b,c,A:integer;

Begin

Write ('nhap a');

Readln (a);

Write ('nhap b');

Readln (b);

Write ('nhap c');

Readln (c);

A:=a;

If A<b then A:=b;

If A<c then A:=c;

Write ('Ket qua',A);

Readln;

End.

12 tháng 5 2021

Câu 1

Program ntg;

Uses crt;

Var A,x,y:integer;

Begin

Write ('nhap x');

Readln (x);

Write ('nhap y');

Readln ('y');

A:=x+y;

Write ('Ket qua',A);

Readln;

End.