OPTADS360
AANETWORK
AMBIENT
YOMEDIA
Banner-Video
IN_IMAGE

Viết chương trình Pascal tìm giá trị nhỏ nhất trong dãy A={a_1, a_2, a_3,....., a_n}?

Viết chương trình Pascal tìm GTNN trong dãy A={a1, a2, a3,....., an} (Sử dụng biến mảng)

  bởi Thuy Kim 26/10/2018
ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (2)

  • Program Search_Min;
    Uses Crt;
    Var i, N, Min: Integer;
    A: array[1..100] of Integer;
    Begin
    Clrscr;
    Write('Nhap do dai cua day so,N='); Readln(N);
    Writeln('Nhap cac phan tu cua day so:');
    For i:=1 to N do
    Begin
    Write('a[',i,']='); Readln(a[i]);
    End;
    Min:=a[1];
    For i:=2 to N do
    begin if Min>a[i] then Min:=a[i];
    end;
    Writeln('Gia tri Min:',Min);
    Readln
    End.

      bởi Trần Nhật Trường 26/10/2018
    Like (0) Báo cáo sai phạm
  • Viết chương trình nhập vào 1 sãy số có giá trị nhỏ hơn 100 và in ra màng hình dãy số đó.

     

      bởi Không Tên 23/02/2021
    Like (0) Báo cáo sai phạm

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
 

Các câu hỏi mới

NONE
OFF