Viết chương trình nhập từ bàn phím các phần tử của 1 dãy số.Độ dài N nhập từ bàn phím.Tính tổng các phần tử số chẵn vừa nhập và in ra màn hình. Giúp mik vs ạ mai mik thi r😭
Lập trình đơn giản
program TongSoChanTrongDay;
var
n, i, tong: integer;
a: array[1..100] of integer;
begin
tong := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
if a[i] mod 2 = 0 then
tong := tong + a[i];
end;
writeln('Tong cac phan tu chan trong day la: ', tong);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình gồm 1 dãy n số nguyên a)tính tổng các phần tử của dãy b)dãy có bao nhiêu số lẻ tính tổng các số lẻ đó
program TongSoLeTrongDay;
var
n, i, tong, dem: integer;
a: array[1..100] of integer;
begin
tong := 0;
dem := 0;
write('Nhap so phan tu cua day: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(a[i]);
tong := tong + a[i];
if a[i] mod 2 <> 0 then
begin
dem := dem + 1;
end;
end;
writeln('Tong cac phan tu trong day la: ', tong);
writeln('So phan tu le trong day la: ', dem);
readln;
end.
Đúng 1
Bình luận (0)
Cho mảng A có N phần tử (N được nhập vào từ bàn phím, các phần tử của mảng là các số nguyên). Hãy viết chương trình Pascal thực hiện các yêu cầu sau: a. Nhập các phần tử cho mảng A? b. In lên màn hình các phần tử của mảng A? c. 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?
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.
Đúng 1
Bình luận (0)
Lập phương trình trên python
Viet chuong trình khai báo một mảng các số nguyên không âm gồm 7 phân tử và thực hiện các công việc sau 1 Nhập giá tự cho các phần tử của mảng 2 in các phần tử của mảng lên màn hình 3 Tính tổng các phần tử của mảng 4 Tính trung bình các giá trị của mảng 5 Tìm giá trị Min của mảng 6 sắp xếp các phần tử của mảng theo chiều giảm dần.
program PSMCG;
uses crt;
const
size = 7;
var
arr: array[1..size] of integer;
i, sum, min, temp: integer;
avg: real;
begin
clrscr;
writeln('Nhap vao day so nguyen khong am gom 7 phan tu: ');
for i := 1 to size do
begin
readln(arr[i]);
end;
writeln('Cac phan tu trong day la: ');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
writeln();
sum := 0;
for i := 1 to size do
begin
sum := sum + arr[i];
end;
writeln('Tong cac phan tu la: ', sum);
avg := sum / size;
writeln('Trung binh cac phan tu la: ', avg:0:2);
min := arr[1];
for i := 2 to size do
begin
if(arr[i] < min) then
begin
min := arr[i];
end;
end;
writeln('Gia tri nho nhat la: ', min);
for i := 1 to size - 1 do
begin
for j := i + 1 to size do
begin
if(arr[i] < arr[j]) then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
end;
end;
end;
writeln('Cac phan tu da sap xep theo thu tu giam dan:');
for i := 1 to size do
begin
write(arr[i], ' ');
end;
readln;
end.
Đúng 1
Bình luận (1)
cho mot day so nguyen gan voi n phan tu. sap xep lai day theo thu tu cac so nguyen to dau day cac so con lai cuoi day07:18 Đã gửi
Đọc tiếp
cho mot day so nguyen gan voi n phan tu. sap xep lai day theo thu tu cac so nguyen to dau day cac so con lai cuoi day07:18 Đã gửi
Viết chương trình nhập vào 1 dãy số thực gồm K phần tử. In ra màn hình phần tử nhỏ nhất trong dãy số đó
Program HOC24;
var a: array[1..1000] of integer;
i,k,min: integer;
begin
write('Nhap K: '); readln(k);
for i:=1 to k do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
min:=a[1];
for i:=2 to k do if a[i]<min then min:=a[i];
write('Phan tu nho nhat trong day so la: ',min);
readln
end.
Đúng 1
Bình luận (0)
Uses crt;
var i,k,min: longint;
h: array[1..100] of longint;
begin clrscr;
readln(k);
for i:=1 to k do begin
readln(h[i]);
end;
min:=h[1];
for i:=1 to n do begin
if(min>h[i]) then min:=h[i];
end;
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Có một dòng văn bản dài không quá 255 kí tự. Hãy lập trình thực hiện:a. Đếm số từ có trong dòng văn bản.b. Đếm xem trong dòng văn bản có bao nhiêu từ bắt đầu bằng một chữ cái cho trước được nhập vào từ bàn phím.
Đọc tiếp
Có một dòng văn bản dài không quá 255 kí tự. Hãy lập trình thực hiện:
a. Đếm số từ có trong dòng văn bản.
b. Đếm xem trong dòng văn bản có bao nhiêu từ bắt đầu bằng một chữ cái cho trước được nhập vào từ bàn phím.
Một lớp học có N học sinh, trong giờ thể dục để tổ chức một trò chơi thầu giáo đã gắn cho mõi học sinh một số hiệu là một số nguyên bất kì, rồi yêu cầu cả lớp xếp thành một hàng dọc. Hãy lập trình nhập vào từ bàn phím số hiệu của các học sinh, tìm và đưa ra màn hình học sinh có số hiệu lớn nhất và số thứ tự của học sinh đó trong hàng, nếu nhuẽng học sinh có số hiệu trùng nhau thì chon học sinh đầu tiên trong số những học sinh đó.
Đọc tiếp
Một lớp học có N học sinh, trong giờ thể dục để tổ chức một trò chơi thầu giáo đã gắn cho mõi học sinh một số hiệu là một số nguyên bất kì, rồi yêu cầu cả lớp xếp thành một hàng dọc. Hãy lập trình nhập vào từ bàn phím số hiệu của các học sinh, tìm và đưa ra màn hình học sinh có số hiệu lớn nhất và số thứ tự của học sinh đó trong hàng, nếu nhuẽng học sinh có số hiệu trùng nhau thì chon học sinh đầu tiên trong số những học sinh đó.
1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.
1. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do write(i:3);
readln;
end.
2. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2 = 0) then write(i:3);
readln;
end.
Đúng 3
Bình luận (0)
1. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do write(i:3);
readln;
end.
2. Uses crt;
var n,i: integer;
begin clrscr;
readln(n);
for i:=1 to n do if(i mod 2 = 0) then write(i:3);
readln;
end.
Đúng 0
Bình luận (0)
1.
program InDaySoTuNhien;
var n, i: integer;
begin
write('Nhap so nguyen duong n: ');
readln(n);
writeln('Day so tu 1 den ', n, ' la:');
for i := 1 to n do
write(i, ' ');
end.
2.
program InSoChan;
var
n, i: integer;
begin
write('Nhap so nguyen n: ');
readln(n);
writeln('Cac so nguyen chan trong khoang tu 1 den ', n, ' la:');
for i := 1 to n do
begin
if i mod 2 = 0 then
write(i, ' ');
end;
end.
Đúng 0
Bình luận (0)