viết phương trình tạo mảng số nguyên tối đa 50 phần tử, mỗi giá trị có giá trị tuyệt đối không quá 100. tính tổng các giá trị tại vị trí chẵn trong đây
2 câu trả lời
Program FNG;
Uses crt;
Var A: array[1..50] of longint;
n,i,s: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
s:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If i mod 2 = 0 then s:=s+A[i];
End;
Write('S = ',s);
Readln
End.
Program hotrotinhoc_hoc24;
var i,n,min: integer;
a: array[1..32000] of integer;
begin
write('Nhap so phan tu : '); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
min:=32000;
for i:=1 to n do
if a[i]<min then min:=a[i];
write('Chi so cua gia tri nho nhat la :');
for i:=1 to n do if a[i]=min then write(i,' ');
writeln;
writeln('Gia tri nho nhat la : ',min);
readln
end.
chúc bạn hok tốt
Câu hỏi trong lớp
Xem thêm
