Nhập vào một màng gồm n số nguyên và số nguyên k. Tìm và đưa ra màn hình: a. Giá trị lớn nhất của màng, vị trí lớn nhất đó. b. Giá trị nhỏ nhất của mảng, vị trí nhỏ nhất đó. c. Tính tổng bình phương các giá trị ở vị trí chẵn. d. Đếm xem trong mang có bao nhiêu giá trị băng k. Nh

thamtulungdanhkang

2 năm trước

Nhập vào một màng gồm n số nguyên và số nguyên k. Tìm và đưa ra màn hình: a. Giá trị lớn nhất của màng, vị trí lớn nhất đó. b. Giá trị nhỏ nhất của mảng, vị trí nhỏ nhất đó. c. Tính tổng bình phương các giá trị ở vị trí chẵn. d. Đếm xem trong mang có bao nhiêu giá trị băng k. Nhập vào một mảng gồm n số nguyên và số nguyên k

Loga Sinh Học lớp 12

0 lượt thích 48 xem

1 trả lời

Thích Trả lời

lamtung.nguyendu

program baigiai;

uses crt;

var A:array[1..100] of integer;

n,i,d,vtmax,vtmin:byte;

max,min:integer;

t:longint;

begin

clrscr;

write('Nhap k: '); readln(k);

write('Nhap so luong phan tu n: '); readln(n);

write('Nhap so thu 1: '); readln(A[1]);

max:=A[1]; vtmax:=1; min:=A[1]; vtmin:=A[1];

d:=0; t:=0;

for i:=2 to n do

begin

write('Nhap so thu ',i,': '); readln(n);

if A[i]>=max then

begin

max:=A[i];

vtmax:=i;

end;

if A[i]<min then

begin

min:=A[i];

vtmin:=i;

end;

if i mod 2=0 then t:=t+A[i]*A[i];

if A[i]=k then d:=d+1;

end;

writeln('a. Gia tri lon nhat la ',max,', voi vi tri lon nhat la ',vtmax);

writeln('b. Gia tri nho nhat la ',min,', voi vi tri nho nhat la ',vtmin);

writeln('c. Tong binh phuong cac gia tri o vi tri chan la: ',t);

writeln('d. Trong mang co ',d,' gia tri bang k');

readln;

end.

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

xuan02091975

uses crt; var a,b,c:array[1..100]of integer; k,i,n,max,min,dem,dem1,tam,j,dem2,t:integer; begin clrscr; write('n='); readln(n); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; write('nhap k='); readln(k); {-------------------------------cau-a--------------------------} max:=a[1]; for i:=1 to n do if max<a[i] then max:=a[i]; writeln('gia tri lon nhat cua mang la: ',max); dem:=0; for i:=1 to n do if max=a[i] then begin inc(dem); b[dem]:=i; end; writeln('vi tri cua no lan luot la:'); for i:=1 to dem do write(b[i]:4); {-----------------------------cau-b--------------------------} writeln; min:=a[1]; for i:=1 to n do if min>a[i] then min:=a[i]; writeln('gia tri nho nhat cua mang la: ',min); dem1:=0; for i:=1 to n do if min=a[i] then begin inc(dem1); c[dem1]:=i; end; writeln('vi tri cua no lan luot la:'); for i:=1 to dem1 do write(c[i]:4); {--------------------------cau-c------------------------} writeln; t:=0; for i:=1 to n do if i mod 2=0 then t:=t+sqr(a[i]); writeln('tong binh phuong cac phan tu o vi tri chan la: ',t); {------------------------cau-d-------------------------------} writeln('mang duoc sap xep tang dan la: '); for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j] then begin tam:=a[i]; a[i]:=a[j]; a[j]:=tam; end; for i:=1 to n do write(a[i]:4); {------------------------cau-e-----------------------} writeln; dem2:=0; for i:=1 to n do if a[i]=k then inc(dem2); writeln('so gia tri bang ',k,' trong day la: ',dem2); readln; end.

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

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

Vận dụng công thức loga định hồi xác suất. $1.$Ván bài gồm $2$ người chơi,tính xác suất thắng qua $26$ lần rút lá bài ngẫu nhiên trong bộ bài gồm $52$ lá? $2$.Tính xác suất xuất hiện $5$ ngày mưa liên tiếp trong mùa hè?

Giúp mình bài 1 này vs nhé! Mk camon nhìu:3 Nhanh nhoa, xg trước 13h30 nhó.

Một vật sáng AB được đặt vuông góc với trục chính của TKHT có f =12cm , A nằm trên trục chính , cách TK 8cm . Biết AB cao 2cm a) Tính khoảng cách từ ảnh đến TK b) Tính chiều cao của ảnh giúp e vs ạ

Ờm ờm Đôi lời gửi đến thằng pank trí cốt Hai anh em mình chs vs nhau cx đc tầm mấy tháng rồi đó nhỉ? Cũng hiểu tính nhau,rồi cãi qua cãi lại nhưng vì tình nhĩa anh em sâu đậm vẫn làm hòa Thật tố khi tao có một thk anh em như mày Nhà mình ko có điều kiện,ko có khả năng tặng quà cho pank nên là đôi lời gửi tới bạn: `to` Năm mới học giỏi `to` Đạt top một địa lần tiếp theo `to` Ráng vo BĐHH `to` Sống tốt lành và khỏe mạnh SInh nhật zui zẻ nhé Phước~~~~ Vẽ cái bánh sinh nhật có chữ Phước depzai :)

Giải giúp e bài 7b ,8b với bài 9 với mn ơi e đg gấp lắm :(

mn giúp mình bài 5((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((9

Lm giúp e 3 bài này vs mn ơi e đg gấp lắm :(

Câu 1: Viết công thức hóa học của các oxit có tên gọi sau: Bari oxit; luu huỳnh tri oxit, Cacbon đi oxit, Đinito penta oxit, sắt (III) oxit, Natri oxit Câu 2. Lấy cùng một lượng KCIO3 và KMNO4 để điều chế khí O2. Chất nào cho nhiều khí oxi hơn? a) Viết phương trình phản ứng và giải thích. b) Nếu dieu chế cùng một the tích khí oxi thì dùng chất nào kinh tế hơn? Biet rằng giá của KMNO4 là 30.000đ/kg và KCIO3 là 96.000d/kg. Giải hộ mik vs nhaaaaaa

Cho dãy số 1,2,3,4,5,6,7,8,9 chia vào làm 3 tập không rỗng. Chứng minh tồn tại 1 tập sao cho tích các phần tử trong tập đó vượt quá 77

Câu 1: Khi đốt, than cháy theo sơ đổ sau: Cacbon + oxi → khí cacbon đioxit a) Viết và cân bằng phương trình phản ứng. b) Cho biết khối lượng cacbon tác dụng bằng 9 kg. Hãy tính khối lượng khí cacbon đioxit tạo thành. c) Nếu khối lượng khối lượng khí cacbonic thu đưoc bằng 22 kg, hãy tính th tích khí oxi đã phản ứng. Câu 2: Cho CuO tác dụng với H2 ở nhiệt độ thích hợp thu dược 12,8 gam đổng. Tính khối lượng CuO phản ứng. Thể tích H2 đã tham gia phản ứng. Giúp mik vs nhaaaaaa

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