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.
nhờ các hảo hán tin học giải giúp sư đệ
helpppppppp, ai giải được cho 400 chịu
program TongLe;
var
N, i, Tong: integer;
A: array[1..50] of integer;
begin
write('Nhap so phan tu cua mang N (N <= 50): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
Tong := 0;
for i := 1 to N do
begin
if(A[i] mod 2 <> 0) then
begin
Tong := Tong + A[i];
end;
end;
writeln('Tong cac so le trong mang A la: ', Tong);
readln;
end.
program Tinh_Tong_Phan_Tu_Chan;
var
A: array of Integer;
N, i, sum: Integer;
begin
Write('Nhap N: ');
Readln(N);
SetLength(A, N);
// Nhập các phần tử cho mảng A
for i := 0 to N - 1 do
begin
Write('Nhap phan tu thu ', i + 1, ': ');
Readln(A[i]);
end;
// In lên màn hình các phần tử của mảng A
Write('Cac phan tu cua mang la: ');
for i := 0 to N - 1 do
begin
Write(A[i], ' ');
end;
Writeln;
// Tính tổng các phần tử chẵn của mảng A và thông báo kết quả ra màn hình
sum := 0;
for i := 0 to N - 1 do
begin
if A[i] mod 2 = 0 then
sum := sum + A[i];
end;
Writeln('Tong cac phan tu chan cua mang la: ', sum);
Readln;
end.
program BaiTapMang;
var
n, i, max, min, s: longint;
a: array[1..100] of integer;
begin
// Nhập số phần tử của mảng
write('Nhap so phan tu cua mang: ');
readln(n);
// Nhập giá trị từng phần tử của mảng
for i := 1 to n do
begin
write('Nhap gia tri phan tu thu ', i, ': ');
readln(a[i]);
end;
// Xuất mảng theo chiều ngang
writeln('Mang vua nhap la:');
for i := 1 to n do
write(a[i], ' ');
// Tìm giá trị lớn nhất và nhỏ nhất của mảng
max := a[1];
min := a[1];
for i := 2 to n do
begin
if a[i] > max then
max := a[i];
if a[i] < min then
min := a[i];
end;
writeln;
writeln('Gia tri lon nhat cua mang la: ', max);
writeln('Gia tri nho nhat cua mang la: ', min);
// Tính tổng các phần tử âm của mảng
s:= 0;
for i := 1 to n do
begin
if a[i] < 0 then
s:= s + a[i];
end;
writeln('Tong cac phan tu am cua mang la: ', s);
readln;
end.
Câu 1:
uses crt;
var a:array[1..100]of real;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t:4:2);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=1;
for i:=1 to n do
t:=t*a[i];
writeln(t:4:2);
readln;
end.
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
tbc: real;
t: longint;
begin
write('Nhap N: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln('Tong cac phan tu cua mang la: ',t);
d:=0;
for i:=1 to n do if a[i]=5 then d:=d+1;
writeln('Co ',d,' phan tu co gia tri bang 5');
tbc:=0;
for i:=1 to n do if a[i] mod 2=1 then tbc:=tbc+a[i];
tbc:=tbc/n;
writeln('Trung binh cong cac phan tu le la: ',tbc:6:2);
write('Mang sau khi thay la: ');
for i:=1 to n do if a[i]=0 then a[i]:=10;
for i:=1 to n do write(a[i],' ');
readln
end.
'''python
a. DTB = []
siso = int(input("Nhập số lượng học sinh trong lớp: "))
b. for i in range(siso):
diem = float(input(f"Nhập điểm của học sinh thứ {i+1}: "))
DTB.append(diem)
c. tong=sum(DTB)
d. print(f"Tổng điểm của lớp là: {tong}")'''
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
Uses crt;
Var i,n,s:longint;
a: array [1..1000000] of longint;
Begin
Write('Nhap cac phan tu cua day so: '); 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
begin
s:=s+a[i];
end;
write('Tong cac so chan la: ',s);
Readln
end.