Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2,dem1,dem2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t1:=0;
dem1:=0;
t2:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
t1:=t1+a[i];
inc(dem1);
end
else begin
t2:=t2+a[i];
inc(dem2);
end;
end;
writeln('Trung binh cac so chan la: ',t1/dem1:4:2);
writeln('Trung binh cac so le la: ',t2/dem2:4:2);
readln;
end.
1:
#include <bits/stdc++.h>
using namespace std;
long long n=10, a[10],i,nn;
int main()
{
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=2; i<=n; i++) nn=min(nn,a[i]);
cout<<nn;
return 0;
}
uses crt;
var a:array[1..6]of integer;
i,t:integer;
begin
clrscr;
for i:=1 to 6 do
begin
write('Nhap diem cua ban thu ',i,':'); readln(a[i]);
end;
t:=0;
for i:=1 to 6 do
t:=t+a[i];
writeln('Tong diem trung binh la: ',t);
writeln('Diem trung binh cua day la: ',t/6:4:2);
readln;
end.
n = int(input("Nhap so phan tu cua day: "))
a = []
for i in range(n):
a.append(int(input("Nhap phan tu thu {}: ".format(i+1))))
tong = 0
for elem in a:
tong += elem
print("Tong cua day la: ", tong)
Để đếm số lượng số âm trong dãy và tính tổng các số âm đó, ta có thể sử dụng một biến đếm để đếm số lượng số âm và một biến tổng để cộng dồn các số âm. Ví dụ:n = int(input("Nhap so phan tu cua day: "))
a = []
for i in range(n):
a.append(int(input("Nhap phan tu thu {}: ".format(i+1))))
so_luong_am = 0
tong_am = 0
for elem in a:
if elem < 0:
so_luong_am += 1
tong_am += elem
print("So luong so am trong day la: ", so_luong_am)
print("Tong cac so am trong day la: ", tong_am)
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2<>0 then write(a[i]:4);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Program HOC24;
var d,i,n: integer;
t: real;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
d:=0; t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
d:=d+1;
t:=t+a[i];
end;
t:=t/d;
writeln('Co ',d,' so chan trong mang');
writeln('Trung binh cong cac phan tu chan la: ',t:2:5);
write('Cac phan tu trong day theo chieu doc: ');
for i:=1 to n do writeln(a[i]);
readln
end.
uses crt;
var i, n, s: integer;
tb: real;
a: array [1..100] of integer;
begin
write('nhap so n:'); readln(n);
for i:=1 to n do
s:= s + a[i];
tb:= s/n;
writeln(' trung binh cua day so la:', tb:4:2);
readln
end.
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
uses crt;
var i, n, s: integer;
tb: longint;
a: array [1..100] of integer;
begin
write('nhap so n:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do
s:= s+a[i];
tb:= s/n;
writeln(' trung binh cua day so la: ', tb:4:2);
readln
end.