Tin học Viết chương chương trình nhập vào 1 mạng gồm n số thực tìm giá trị của phần tử lớn nhất giá trị của phần tử nhỏ nhất. in kết quả ra màn hình 17/07/2021 By aikhanh Viết chương chương trình nhập vào 1 mạng gồm n số thực tìm giá trị của phần tử lớn nhất giá trị của phần tử nhỏ nhất. in kết quả ra màn hình
Uses crt; Var i,n,max,min: integer;a: array[1..100] of integer;BeginClrscr;Write(‘ Nhap do dai cua day so, n= ‘);Readln(n);Writeln(‘Nhap cac phan tu cua day so: ‘);For i:= 1 to n doBeginWrite(‘a[‘, i, ‘]= ‘);Readln(a[i]);End;max:= a[1];min:= a[1];For i:= 2 to n doBeginIf max < a[i] then max:= a[i];If min > a[i] then min:= a[i];End;Writeln(‘Gtri lon nhat trong day la: ‘, max, ‘.Va vi tri cua no nam o:’);For i:=1 to n do if max=a[i] then write(i:4); Writeln;Writeln(‘Gtri nho nhat trong day la: ‘, min, ‘.Va vi tri cua no nam o:’);For i:=1 to n do if min=a[i] then writeln(i:4);Readln;End.*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Đa tạ 😀*Dù số nhỏ nhất có là 1 hay 2,.. thì min kết quả vẫn chỉ đúng số đó 😀 Trả lời
program Mang; uses crt; var A:array [1..500] of integer; n,i,max,min: integer; Begin clrscr; write(‘Nhap so phann tu: ‘); readln(n); max:=1; min:=1; for i:=1 to n do begin write(‘A[‘,i,’]=’); readln(A[i]); if max<A[i] then max:=A[i]; if min>A[i] then min:=A[i]; end; write(‘max = ‘,max,’ , min = ‘,min); readln End. Trả lời