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.
a)
Type mang=array[1..100]of integer;
procedure nhap(var a:mang);
var n,i:integer;
begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
end;
b) procedure xuat(var a:mang);
var i,n:integer;
begin
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
end;
uses crt;
var a:array[1..100]of integer;
i,n,dem,t,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i]>0 then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('So luong phan tu duong la: ',dem);
writeln('Tong cac phan tu duong la: ',t);
writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[20],b[20],c[20],i,n;
int main()
{
cin>>n;
srand(time(NULL));
for (i=1; i<=n; i++)
a[i]=rand();
srand(time(NULL));
for (i=1; i<=n; i++)
b[i]=rand();
for (i=1; i<=n; i++)
c[i]=abs(a[i]-b[i]);
for (i=1; i<=n; i++) cout<<a[i]<<" "; cout<<endl;
for (i=1; i<=n; i++) cout<<b[i]<<" "; cout<<endl;
for (i=1; i<=n; i++) cout<<c[i]<<" "; cout<<endl;
return 0;
}
Program hotrotinhoc;
var a: array[1..500] of integer;
i,n: integer;
t: longint;
function kt(x: integer): boolean;
begin
kt:=true;
if (x mod 3=0) or (x mod 5=0) then exit;
kt:=false;
end;
procedure input;
begin
write('Nhap so phan tu :'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); read(a[i]);
end;
end;
begin
input;
t:=0;
for i:=1 to n do
if kt(a[i]) then t:=t+a[i];
write('Tong cac so chia het cho 3 hoac 5 la :',t);
readln
end.
program cau_a;
uses crt;
type mang=array[1..100]of integer;
var a:mang;
i,n:integer;
s:longint;
{------------------chuong-trinh-con-nhap--------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{---------chuong-trinh-con-tim-min--------------}
function min(var c:mang):integer;
var j,m,nn:integer;
begin
nn:=c[1];
for j:=1 to m do
if nn<c[j] then nn:=c[j];
write('so nho nhat trong mang A la: ',nn);
min:=nn;
end;
{-----------------chuong-trinh-chinh---------------------}
begin
clrscr;
nhap(a);
min(a);
readln;
end.
câu b:
program cau_b;
uses crt;
type mang=array[1..100]of integer;
var a:mang;
i,n:integer;
s:longint;
{------------------chuong-trinh-con-nhap--------------}
procedure nhap(var b:mang);
begin
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(b[i]);
end;
end;
{---------chuong-trinh-con-tinh-tong-cac-phan-tu-la-so-chan--------}
function tong(var c:mang):integer;
begin
s:=0;
for i:=1 to n do
if c[i] mod 2=0 then s:=s+c[i];
tong:=s;
end;
{-----------------chuong-trinh-chinh---------------------}
begin
clrscr;
nhap(a);
s:=tong(a);
write(s);
readln;
end.
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..100] of integer;
procedure ip;
begin
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
end;
function chan(x: integer): longint;
var tong: longint;
begin
t:=0;
if x mod 2=0 then tong:=x;
chan:=tong;
end;
begin
ip;
for i:=1 to n do t:=t+chan(a[i]);
write(t);
readln
end.
uses crt;
var a,b:array[1..1000]of integer;
i,n,j,t: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
begin
t:=0;
for j:=1 to i do
t:=t+a[j];
b[i]:=t;
end;
for i:=1 to n do
write(b[i]:4);
readln;
end.
Bài 1:
uses crt;
var a:array[1..300]of integer;
n,i,t:integer;
begin
clrscr;
write('Nhap so phan tu:'); 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) and (i mod 2=0) then t:=t+a[i];
writeln('Tong cac phan tu le o vi tri chan la: ',t);
readln;
end.
Bài 2:
uses crt;
var a,b:integer;
{---------------------chuong-trinh-con--------------------------}
function tong(var x,y:integer):integer;
begin
tong:=x+y;
end;
{-------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('Nhap so thu nhat:'); readln(a);
write('Nhap so thu hai:'); readln(a);
writeln('Tong cua hai so la: ',tong(a,b));
readln;
end.
uses crt;
var n:integer;
{-----------------------------------------------------}
procedure nhap(var x:integer);
var a:array[1..100]of integer;
i:integer;
begin
write('nhap chieu dai cua day='); readln(x);
for i:=1 to x do
begin
write('a[',i,']='); readln(a[i]);
end;
end;
{-----------------------thu-tuc-tinh-tong-----------------}
procedure tong(var m:integer);
var b:array[1..100]of integer;
j,t:integer;
begin
t:=0;
for j:=1 to m do
t:=t+b[j];
writeln('tong la: ',t);
end;
{------------------------chuong-trinh-chinh---------------------}
begin
clrscr;
nhap(n);
tong(n);
readln;
end.