Tin học Cho 1 dãy số bất kì Hãy đưa ra màn hình số bé nhất nhất và số lớn nhất 18/07/2021 By Claire Cho 1 dãy số bất kì Hãy đưa ra màn hình số bé nhất nhất và số lớn nhất
uses crt;var max,min,n,i:integer;a:array[1..100] of integer;beginclrscr;write(‘Nhap so luong phan tu cua day: ‘);readln(n);For i:=1 to n dobegin write(‘Nhap so thu ‘,i,’: ‘);readln(a[i]) end;max:=a[1];min:=a[1];for i:=2 to n dobegin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]end;writeln(‘So lon nhat la: ‘,max);writeln(‘So nho nhat la: ‘,min);readlnend. Trả lời
Program hoidap247; Uses crt; Var i,n,Max,Min:integer; S:longint; A:array[1..100] of integer; Begin Clrscr; S:=0; Write(‘nhap n tu ban phim’); Readln(n); For i:=1 to n do Begin Write(‘A[‘,i,’]’); Readln(A[i]); End; Max:=A[1]; Min:=A[1]; For i:=2 to n do Begin if Max<A[i] then Max:=A[i]; if Min>A[i] then Min:=A[i]; end; Write(‘so nho nhat la’,Min); Write(‘so lon nhat la’,Max); Readln End. Trả lời