Ví dụ về hoạt động lặp ở thực tế (Tin học - Lớp 8) 2 trả lời Cách nào để kết nói bàn phím với bluestacks? (Tin học - Lớp 6) 2 trả lời Trình bày trang văn bản là gì? (Tin học - Lớp 6) 1 trả lời Nêu cách chọn hướng trang và đặt lề trang (Tin học - Lớp 6) 1 trả lời Cú pháp câu lệnh while... là (Tin học - Lớp 8) 1 trả lời Vòng lặp for... là vòng lặp (Tin học - Lớp 8) 1 trả lời
Khách Hãy nhập câu hỏi của bạn vào đây Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
Khách Hãy nhập câu hỏi của bạn vào đây
Những câu hỏi liên quan
program oken; uses crt;var a: array [1..100] of integer; i,n,max:integer;begin clrscr; write('nhap so n: '); readln(n); for i:=1 to n do begin write('a[',i,']: '); readln(a[i]); end; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('Max: ',max); readln; end. Cho mình câu trả lời hay nhất
câu tính maxmin nhé bạn..<3 program timmaxmin; var i,n,max,min:integer; a:array [1..100] of integer; begin write('nhap do dai cua day so N=');readln(N); writelln('nhap cac phan tu cua day so:'); 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; writeln('so lon nhat la:',max); writeln('so nho nhat la:',min); readln end.
Program Cau2; Uses crt; Var i,n,max,min: integer; a: array[1..100] of integer; Begin Clrscr; Write(‘ Nhap do dai cua day so, n= ‘); Readln(n); Writeln(‘Nhap cac phan tu cua day so: ‘); 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; Writeln(‘So lon nhat la max= ‘, max); Writeln(‘So nho nhat la min= ‘, min); Readln; End. Viết chương trình tìm max, min của dãy A gồm n phần tử (n<50)
viết chương trình tìm giá trị lớn nhất,nhỏ nhất của dãy n số được nhập từ bàn phím. giúp tớ với Các câu hỏi tương tự |