Viết chương trình đọc từ bàn phím một loạt số nguyên cho đến khi nhập số 0.Hãy tính và in ra trung bình cộng của số chia hết cho 3 và 2(lấy 2 chữ số thập phân).
uses crt;
var a,t,dem:integer;
begin
clrscr;
t:=0;
dem:=0;
repeat
write('Nhap a='); readln(a);
if (a mod 2=0) and (a mod 3=0) then
begin
t:=t+a;
dem:=dem+1;
end;
until a=0;
writeln('Trung binh cong cua cac so chia het cho 3 va 2 la: ',t/dem:4:2);
readln;
end.
giúp mình tất cả các bài với ạ
const fo='int.txt'
fo='out.txt'
var f1,f2:text;
m,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m);
readln(f1,n);
writeln(f2,m+n);
close(f1);
close(f2);
end.
tính điểm trung bình cộng với C++
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
int n,i;
float a[12];
float tbc;
cout<<"Nhap so mon hoc:";
cin>>n;
for (i=1;i<=n;i++)
{
cout<<"Nhap diem so mon hoc thu "<<i<<":";
cin>>a[i];
}
tbc=0;
for (i=1;i<=n;i++)
tbc=tbc+a[i];
cout<<"Trung binh cong la:"<<fixed<<setprecision(2)<< tbc/n;
return 0;
}
Viết chương trình nập vào mảng A gồm N số nguyên ( N< - 100 ) và nhập thêm vào một số nguyên k. Tính tổng và tích các số không lớn hơn k trong N số đã nhập
Mọi người giúp em với ạ
uses crt;
var a:array[1..100]of integer;
i,n,k,t:integer;
s:longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------xu-ly-------------------------------}
write('nhap k='); readln(k);
t:=0;
s:=1;
for i:=1 to n do
if a[i]<=k then
begin
t:=t+a[i];
s:=s*a[i];
end;
writeln('tong cac so khong lon hon ',k,' trong day la: ',t);
writeln('tich cac so khong lon hon ',k,' trong day la: ',s);
readln;
end.
Câu hỏi: Cho mảng A gồm N số nguyên
Yêu cầu:
1. In ra màn hình và tính tổng các số nguyên âm.
2. Hãy cho biết vị trí và giá trị của số lớn nhất trong A.
Mn giúp mình với ạ, mình đang cần gấp.
uses crt;
var a:array[1..100]of integer;
n,i,t,max:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------------cau-1-------------------------------}
writeln('day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
if a[i]<0 then t:=t+a[i];
writeln('tong cac so nguyen am la: ',t);
{---------------------------------cau-2-------------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('gia tri lon nhat cua day la: ',max);
writeln('vi tri la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
readln;
end.
Cho dãy số nguyên A1,A2,A3,...,An gồm 200 phần tử. Viết chương trình tính tổng và đếm số lượng các phần tử lẻ có trong dãy số đó.
Cho 2 mảng A,B gồm n số nguyên được sắp xếp theo thứ tự tăng dần. Hãy tạo mảng C gồm các số từ mảng A và B sao cho các phần tử của C cũng được sắp xếp theo thứ tự tăng dần.
a, Đưa ra vị trí các số nguyên trong A.
b, Tìm trong mảng B các phần tử có giá trị 0
- chương trình gõ chữ việt như ......: hiển thị biểu tượng V màu đỏ trên góc phải thanh Taskbar. Trường hợp trình hỗ trợ chữ Việthiển thị chữ E màu xanh , cần thực hiện thao tác ........ để chuyển sang biểu tượng V màu đỏ.
- trong chương trình hỗ trợ chữ Việt cần điều chình bộ mã...... và kiểu gõ.......
- điều chỉnh Font trong hệ soạn thảo văn bản phù hợp với bộ mã điều chỉnh trong chương trình hỗ trợ chữ Việt
