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)
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
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ự