PASCAL 1.Nhập Một Mảng Gồm N Số Nguyên, Xuất Ra Số Nhỏ Nhất Và ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

quangbao26804
Chưa có nhóm

Trả lời
1
Điểm
5
Cảm ơn
0

Tin Học
Lớp 8
10 điểm
quangbao26804 - 21:54:08 22/03/2020

PASCAL 1.Nhập một mảng gồm n số nguyên, xuất ra số nhỏ nhất và vị trí của số đó trong mảng trên 2. Nhập một mảng gồm n số nguyên, xuất ra số hạng âm lớn nhất của dãy và chỉ số của nó. 3.Nhập một mảng gồm n số nguyên, xuất ra số hạng dương nhỏ nhất của dãy và chỉ số của nó.

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

tranhungfckt123
Chưa có nhóm

Trả lời
166
Điểm
1701
Cảm ơn
86

tranhungfckt123

22/03/2020

program Tin_hoc;

uses crt;

var i,n,min,k:integer;

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

begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' so nguyen duong:');

for i:=1 to n do begin

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

readln(a[i])

end;

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

for i:= 1 to n do if a[i] < min then begin min:= a[i]; k:=i end;

write('So nho nhat la ',min,' va o vi tri thu ',k);

readln;

end.

Bài 2:

program t;

uses crt;

var i,n,max,k:integer;

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

begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' so nguyen:');

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

k:=0;

for i:= 1 to n do if a[i]<0 then begin k:=i; max:=a[i] end;

for i:= 1 to n do if (a[i]<0) and (a[i]>max) then begin k:=i; max:=a[i] end;

if k=0 then writeln('Khong co so hang am') else

writeln('So hang am lon nhat la ',max,' va chi so cua no la ',k);

readln;

end.

Bài 3:

program t;

uses crt;

var i,n,min,k:integer;

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

begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' so nguyen:');

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

k:=0;

for i:= 1 to n do if a[i]>=0 then begin k:=i; min:=a[i] end;

for i:= 1 to n do if (a[i]>=0) and (a[i]<min) then begin k:=i; min:=a[i] end;

If k=0 then writeln('Khong co so hang duong') else

writeln('So hang duong lon nhat la ',min,' va chi so cua no la ',k);

readln;

end.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar4starstarstarstarstar2 voteGửiHủy

Cảm ơn 2
Báo vi phạm

- quangbao26804
- Chưa có nhóm
- Trả lời
  1
- Điểm
  5
- Cảm ơn
  0
Giup mình giải nốt 2 bài đi làm ơn

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

keyy
_Interesting_

Trả lời
1742
Điểm
353
Cảm ơn
1315

keyy

23/03/2020

Bài 1:

Program FNG;Uses crt;Var A: array[1..1000] of longint; n,i,min,vtmin: longint;Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End; min:=A[1]; vtmin:=1; For i:=1 to n do If A[i]>min then Begin min:=A[i]; vtmin:=i; End; Writeln('Min: A[',vtmin,'] = ',min); ReadlnEnd.

Bài 2:

Program FNG;Uses crt;Var A: array[1..1000] of longint; n,i,max,vtmax: longint;Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End; max:=A[1]; vtmax:=1; For i:=1 to n do If (A[i]>max) and (A[i]<0) then Begin max:=A[i]; vtmax:=i; End; Writeln('Max: A[',vtmax,'] = ',max); ReadlnEnd.

Bài 3:

Program FNG;Uses crt;Var A: array[1..1000] of longint; n,i,min,vtmin: longint;Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('A[',i,'] = '); Readln(A[i]); End; min:=A[1]; vtmin:=1; For i:=1 to n do If (A[i]<min) and (A[i]>0) then Begin min:=A[i]; vtmin:=i; End; Write('Min: A[',vtmin,'] = ',min); ReadlnEnd.

Hãy giúp mọi người biết câu trả lời này thế nào?

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy