viết chương trình nhập vào mảng gồm n phần tử n nhỏ hơn hoặc bằng 100 là các số nguyên dương hãy tìm chữ số và giá trị lớn nhất viết kết quả lên tệp

Thanhphuong1711

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 30 xem

1 trả lời

Thích Trả lời

quannguyendang1502

program Hello;
uses crt;
var n,max,i:integer;
f:text;
a:array[1..100] of longint;
begin
clrscr;
readln(n);
for i:= 1 to n do
begin
read(a[i]);
if max < a[i] then max:=a[i];
end;
assign(f,'ketqua.out');
rewrite(f);
writeln(f,max);
close(f);
readln;
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

nhixenh2000

program bai_giai;
uses crt;
var f:text;
A:array[1..100] of integer;
n,i,max:integer;
begin
clrscr;
Assign(f,'ketqua.txt'); rewrite(f);
write('Nhap n (n<=100): '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
end;
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
writeln(f,max);
for i:=1 to n do
if A[i]=max then write(i,' ');
close(f);
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Câu 2: Trên cùng nửa mặt phẳng có bờ tia ox, vẽ 2 tia oy và ox sao cho góc xoy= 50 độ, xoz= 130 độ a, Tia oy có nằm giư hai tian ox và oz ko? vì sao b, Tính yoz=? c, Gọi ot là tia phân giác của yoz, tính yot= ?

viết cho mk chữ Phương Trang + phải đẹp + ko sử dụng app + 1 bản có chữ ksi 1 bản 0 có + sử dụng đủ các màu nha

1.lớp 6a có 45 học sinh.Sơ kết học kì I có 20% số học sinh xếp loại giỏi còn lại là loại khá và TB. Biết 9/20 số HS khá bằng số hs giỏi . hỏi số hs TB bằng bao nhiêu phần trăm học sinh khá

Chứng minh biểu thức không phụ thuộc vào x

các nước phát triển nhanh giàu có và nền kinh tế có sức cạnh tranh mạnh mẽ trên thế giới là nhờ

Chất nào là hđrocac bon CH4, C2H6O, C2H2, NaHCO3, CH4O, C2H6

nêu các cách chứng minh f(x) với mọi x thuộc R cần gấp nha mn. giúp mình với =((((

nêu thành phần chính của nhóm chất dinh dưỡng?

Giúp mk phần trắc nghiệm vs mn ơi!

chương trình khai thác thuộc địa lần thứ nhất của Thực dân Pháp đã làm cho nền kinh tế Việt Nam chuyến biển như thế nào

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến