YOMEDIA
NONE

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)

Theo dõi Vi phạm
ADSENSE

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
  • YOMEDIA

    Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng

  • 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
 
NONE

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

ZUNIA9
 

 

YOMEDIA
AANETWORK
OFF