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.

#include <bits/stdc++.h>
using namespace std;
long long a[1000007];
long long n;
void kq()
{
    long long ans=-1e18;
    for(int i=1; i<=n; i++)
    {
        ans=max(ans, a[i]);
    }
    cout<<ans;
}
int main()
{
    cin>>n;
    for(int i=1; i<=n; i++)
    {
        cin>>a[i];
    }
    kq();
}

9 tháng 4 2023

program tinh_toan_day_so;

const

     MAX = 1000;

var

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

     n, i, tong, tong_duong, tong_am, tong_chan, tong_le, max, min, temp: integer;

begin

     // Nhập dãy số và giá trị từng phần tử của dãy

     write('Nhập số phần tử của dãy: ');

     readln(n);

     for i := 1 to n do

     begin

          write('Nhập phần tử thứ ', i, ': ');

          readln(a[i]);

     end;

     // Xuất giá trị của dãy vừa nhập

     writeln('Dãy số vừa nhập là: ');

     for i := 1 to n do

     begin

          write(a[i], ' ');

     end;

     writeln();

     // Tính tổng các phần tử của dãy

     tong := 0;

     for i := 1 to n do

     begin

          tong := tong + a[i];

     end;

     writeln('Tổng các phần tử của dãy là: ', tong);

     // Tìm giá trị Max, Min của dãy

     max := a[1];

     min := a[1];

     for i := 2 to n do

     begin

          if a[i] > max then

          begin

               max := a[i];

          end;

          if a[i] < min then

          begin

               min := a[i];

          end;

     end;

     writeln('Phần tử lớn nhất của dãy là: ', max);

     writeln('Phần tử nhỏ nhất của dãy là: ', min);

     // Tính tổng các phần tử dương, âm, chẵn, lẻ của dãy

     tong_duong := 0;

     tong_am := 0;

     tong_chan := 0;

     tong_le := 0;

     for i := 1 to n do

     begin

          if a[i] > 0 then

          begin

               tong_duong := tong_duong + a[i];

          end

          else

          begin

               tong_am := tong_am + a[i];

          end;

          if a[i] mod 2 = 0 then

          begin

               tong_chan := tong_chan + a[i];

          end

          else

          begin

               tong_le := tong_le + a[i];

          end;

     end;

     writeln('Tổng các phần tử dương của dãy là: ', tong_duong);

     writeln('Tổng các phần tử âm của dãy là: ', tong_am);

     writeln('Tổng các phần tử chẵn của dãy là: ', tong_chan);

     writeln('Tổng các phần tử lẻ của dãy là: ', tong_le);

     // Sắp xếp các phần tử của dãy theo thứ tự giảm dần

     for i := 1 to n-1 do

     begin

          for j := i+1 to n do

          begin

               if a[i] < a[j] then

               begin

                    temp := a[i];

                    a[i] := a[j];

                    a[j] := temp;

               end;

          end;

     end;

     writeln('Dãy số sau khi được sắp xếp giảm dần là: ');

     for i := 1 to n do

     begin

          write(a[i], ' ');

     end;

     writeln();

     // Sắp xếp các phần tử của dãy theo thứ tự tăng dần

     for i := 1 to n-1 do

     begin

     for j := i+1 to n do

     begin

          if a[i] > a[j] then

               begin

                    temp := a[i];

                    a[i] := a[j];

                    a[j] := temp;

               end;

          end;

     end;

     writeln('Dãy số sau khi được sắp xếp tăng dần là: ');

     for i := 1 to n do

     begin

          write(a[i], ' ');

     end;

     writeln();

     readln;

end.

25 tháng 12 2023

rất dài nha bạn:


 

program XuLyDaySo;

var
  N, i, soNguyen: integer;
  daySo: array of integer;

procedure NhapDaySo(var daySo: array of integer; N: integer);
var
  i: integer;
begin
  SetLength(daySo, N);
  for i := 0 to N - 1 do
  begin
    write('Nhap phan tu thu ', i + 1, ': ');
    readln(daySo[i]);
  end;
end;

procedure XuatDaySo(daySo: array of integer);
var
  i: integer;
begin
  writeln('Danh sach cac phan tu trong day:');
  for i := 0 to Length(daySo) - 1 do
    write(daySo[i], ' ');
  writeln;
end;

function TinhTongDaySo(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    tong := tong + daySo[i];
  TinhTongDaySo := tong;
end;

procedure TimMaxMin(daySo: array of integer; var Max, Min: integer);
var
  i: integer;
begin
  Max := daySo[0];
  Min := daySo[0];
  for i := 1 to Length(daySo) - 1 do
  begin
    if daySo[i] > Max then
      Max := daySo[i];
    if daySo[i] < Min then
      Min := daySo[i];
  end;
end;

function TinhTongDuong(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] > 0 then
      tong := tong + daySo[i];
  TinhTongDuong := tong;
end;

function TinhTongAm(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] < 0 then
      tong := tong + daySo[i];
  TinhTongAm := tong;
end;

function TinhTongChan(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] mod 2 = 0 then
      tong := tong + daySo[i];
  TinhTongChan := tong;
end;

function TinhTongLe(daySo: array of integer): integer;
var
  i, tong: integer;
begin
  tong := 0;
  for i := 0 to Length(daySo) - 1 do
    if daySo[i] mod 2 <> 0 then
      tong := tong + daySo[i];
  TinhTongLe := tong;
end;

procedure SapXepGiamDan(var daySo: array of integer);
var
  i, j, temp: integer;
begin
  for i := 0 to Length(daySo) - 2 do
    for j := i + 1 to Length(daySo) - 1 do
      if daySo[i] < daySo[j] then
      begin
        temp := daySo[i];
        daySo[i] := daySo[j];
        daySo[j] := temp;
      end;
end;

procedure SapXepTangDan(var daySo: array of integer);
var
  i, j, temp: integer;
begin
  for i := 0 to Length(daySo) - 2 do
    for j := i + 1 to Length(daySo) - 1 do
      if daySo[i] > daySo[j] then
      begin
        temp := daySo[i];
        daySo[i] := daySo[j];
        daySo[j] := temp;
      end;
end;

begin
  // Nhập số lượng phần tử N
  write('Nhap so luong phan tu N: ');
  readln(N);

  // Nhập dãy số
  NhapDaySo(daySo, N);

  // Xuất dãy số
  XuatDaySo(daySo);

  // Tính tổng dãy số
  writeln('Tong cac phan tu cua day: ', TinhTongDaySo(daySo));

  // Tìm Max, Min
  var Max, Min: integer;
  TimMaxMin(daySo, Max, Min);
  writeln('Gia tri lon nhat trong day: ', Max);
  writeln('Gia tri nho nhat trong day: ', Min);

  // Tính tổng các phần tử dương
  writeln('Tong cac phan tu duong cua day: ', TinhTongDuong(daySo));

  // Tính tổng các phần tử âm
  writeln('Tong cac phan tu am cua day: ', TinhTongAm(daySo));

  // Tính tổng các phần tử chẵn
  writeln('Tong cac phan tu chan cua day: ', TinhTongChan(daySo));

  // Tính tổng các phần tử lẻ
  writeln('Tong cac phan tu le cua day: ', TinhTongLe(daySo));

  // Sắp xếp giảm dần
  SapXepGiamDan(daySo);
  writeln('Day sau khi sap xep giam dan:');
  XuatDaySo(daySo);

  // Sắp xếp tăng dần
  SapXepTangDan(daySo);
  writeln('Day sau khi sap xep tang dan:');
  XuatDaySo(daySo);

  readln;
end.

uses crt;

var a:array[1..100]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(max);

readln;

end.

10 tháng 5 2023

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

i,n,max:integer;

Begin

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

For i:=1 to n do

Begin

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

End;

Write('Cac diem vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

max:=a[1];

For i:=2 to n do

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

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

Readln

End.

29 tháng 4 2021

uses crt;

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

max,n,i:integer;

begin

writeln('nhap do dai cua day');readln(n);

for i:=1 to n do begin writeln('A[',i,']=;);readln(a[i]); end;

max:=a[1];

for i:=2 to n do if a[i] > max then begin

max:=a[i]; writeln('vi tri cua max trong day la',i);end;

 readln

end.

thật ra thì cũng không cần biến max nhưng mình làm vậy cho dễ hiểu hơn nhé!

*Thuật toán:

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

-Bước 2: max←a[1]; i←1;

-Bước 3: i←i+1;

-Bước 4: Nếu max<a[i] thì max←a[i];

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

-Bước 6: Cho for chạy từ 1 đến n

Nếu a[i]=max thì xuất i

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

uses crt;

var a:array[1..100]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(max);

readln;

end.

2 tháng 5 2023

cho in ra màn hình giá trị nhỏ nhất cùng luôn thì làm như thế nào bạn

 

9 tháng 5 2023

Var a:array:[1..1000] of real;

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

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',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;

Write('Cac so vua nhap la ');

for i:=1 to n do write(a[i]:10:2):

Writeln;

Writeln('Tong la ',s:10:2);

Writeln('So nho nhat la ',min:10:2);

Write('So lon nhat la ',max:10:2);

Readln

End.

27 tháng 5 2023

var
  Mang: array[1..100] of Integer;
  N, i, Tong, Min, Max: Integer;

begin
  // Yêu cầu nhập độ dài của dãy số từ bàn phím
  Write('Nhap do dai cua day so: ');
  ReadLn(N);

  // Yêu cầu nhập các phần tử của dãy từ bàn phím
  for i := 1 to N do
  begin
    Write('Nhap phan tu thu ', i, ': ');
    ReadLn(Mang[i]);
  end;

  // In ra màn hình các số vừa nhập
  Write('Cac so vua nhap: ');
  for i := 1 to N do
  begin
    Write(Mang[i], ' ');
  end;
  WriteLn;

  // Tính tổng các phần tử của dãy số
  Tong := 0;
  for i := 1 to N do
  begin
    Tong := Tong + Mang[i];
  end;
  WriteLn('Tong cac phan tu cua day so la: ', Tong);

  // Tìm giá trị nhỏ nhất của dãy số
  Min := Mang[1];
  for i := 2 to N do
  begin
    if Mang[i] < Min then
      Min := Mang[i];
  end;
  WriteLn('Gia tri nho nhat cua day so la: ', Min);

  // Tìm giá trị lớn nhất của dãy số
  Max := Mang[1];
  for i := 2 to N do
  begin
    if Mang[i] > Max then
      Max := Mang[i];
  end;
  WriteLn('Gia tri lon nhat cua day so la: ', Max);

  ReadLn;
end.

uses crt;

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

i,n,min:integer;

begin

clrscr;

readln(n);

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

min:=a[1];

for i:=1 to n do 

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

writeln(min);

readln;

end.

2 tháng 5 2023

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.