Câu 1: Viết công thức nhập vào N số nguyên và in ra màn hình số lớn nhất trong dãy Câu 2: Viết công thức nhập vào N số nguyên và in ra màn hình số nhỏ nhất trong dãy [Ai có câu trả lời chính xác và nhanh nhất mình sẽ vote 5sao và bình chọn là câu trả lời hay 🥇

lenguyenkhang01012017

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

nguyen01suny

program bai1;

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

i,n,max:longint;

begin

wrtie('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 a[i]>max then max:=a[i];

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

write('Vi tri la ');

for i:=1 to n do

if a[i]=max then write(i,' ');

readln

end.

Câu 2.

uses crt;

var n,i,min:integer;

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

begin

clrscr;

write('nhap so phan tu cua day:');readln(n);

for i:=1 to n do

begin

write('nhap a[',i,']:');readln(a[i]);

end;

min:=a[1];

for i:=1 to n do

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

write('gia tri nho nhat cua day so la:',min);

readln;

end.

#Đúng hônq ta?

Vote (0) Phản hồi (0) 2 năm trước

ttranphamanhthu2511

Gộp câu 1 và 2:

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

i, n: byte;

max, min: integer;

Begin

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

For i:=1 to n do

Begin

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

If i=1 then

Begin

Max:=a[1]; min:=a[1];

End

Else

Begin

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

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

End;

Writeln('so lon nhat: ', max);

Writeln('so be nhat: ', min);

Readln

End.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Tính đạo hàm và rút gọn tối giản 2 câu giúp em,đừng làm tắt nha<3

Làm hộ mình những câu còn trống ạ

Sử dụng despte hoặc in spite of Although there was the trafic jam,they went to the post office ->

giúp mình lẹ nha đúng cho 5 sao

😥😥 mình cảm ơn nhiều nếu ai làm giúp ạ

Các bạn giúp mik 2 bài này với mình sẽ cho 5* và ctlhn

The destruction of forests has brought _ _ _ _ _ floods recently.

đề: zẽ chibi/anime/... NL: mn coi toy là thứ j?! rác?! đứa bỏ đy?! ng vô hình?! ng ko có địa vị?! ...

các bạn đặt câu hỏi về pollution đc ko ? chớ bây giờ mình ko nghĩ ra cái đề nào về pollution hết

Vẽ anime cầm bánh p/s : ms đầu vào hoidap tôi ns chuyện thân thiện lắm :> nhưng mà bây h ;-; hết r .....

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến