Tìm giá trị MIN,MAX trong 1 mảng số nguyên

Nguyễn Trần Gia Linh Hỏi từ APP VIETJACK

đã hỏi trong Lớp 8 Tin học

· 21:11 21/04/2023

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

3 năm trước

giá trị lớn nhất, giá trị hỏ nhất

1 bình luận

Nguyễn Trần Gia Linh · 3 năm trước

Giải giúp mình ạ

Đăng nhập để hỏi chi tiết

3 năm trước

program TimMinMax;

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

i, min, max: integer;

begin

// Nhập giá trị cho mảng

writeln('Nhap gia tri cho mang:');

for i := 1 to 10 do

begin

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

end;

// Tìm giá trị MIN, MAX

min := a[1];

max := a[1];

for i := 2 to 10 do

begin

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

end;

// In kết quả

writeln('Gia tri MIN: ', min);

writeln('Gia tri MAX: ', max);

readln;

end.

0 bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?