Question

Câu 1: VCT thực hiện các yêu cầu:
- Nhập vào 1 mảng gồm 10 số nguyên;
- In ra các số vừa nhập;
- Tính và in ra tổng số âm;
- Tìm và in ra số lượng số dương;
- Sắp xếp và in dãy số đó tăng dần.
Câu 2: VCT thực hiện các yêu cầu:
- Nhập vào 1 mảng gồm 15 số nguyên và khóa K;
- In ra các số vừa nhập;
- Tính và in tồng các số chẳn;
- Tìm và in ra số lượng số lẻ;
- Tìm và in vị trí khóa K trong dãy đó.

Answer 1

Câu 1:

uses crt;
var a:array[1..10]of integer;
i,t,dem,tam,j:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------xuat----------------------------}
for i:=1 to 10 do
write(a[i]:4);
{-----------------------in-ra-tong-so-am------------------}
writeln;
t:=0;
for i:=1 to 10 do
if a[i]<0 then t:=t+a[i];
writeln('tong cac so am trong day la: ',t);
{---------------in-ra-so-luong-so-duong-----------------}
dem:=0;
for i:=1 to 10 do
if a[i]>0 then inc(dem);
writeln('so luong so duong la: ',dem);
{---------------sap-xep-tang-dan-----------------------}
for i:=1 to 9 do
for j:=i+1 to 10 do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
writeln('day so tang dan la: ');
for i:=1 to 10 do
write(a[i]:4);
readln;
end.

Câu 2:

uses crt;
var a,vt:array[1..15]of integer;
i,t,dem,k,dvt,j:integer;
begin
clrscr;
for i:=1 to 15 do
begin
write('a[',i,']='); readln(a[i]);
end;
write('k='); readln(k);
{------------------------xuat----------------------------}
for i:=1 to 15 do
write(a[i]:4);
writeln;
{-----------------------in-ra-tong-so-chan------------------}
t:=0;
for i:=1 to 15 do
if a[i] mod 2=0 then t:=t+a[i];
writeln('tong cac so chan la: ',t);
{--------------------in-ra-so-luong-so-le----------------------}
dem:=0;
for i:=1 to 15 do
if a[i] mod 2=1 then dem:=dem+1;
writeln('so luong so le la: ',dem);
{-------------------xuat-vi-tri-cua-khoa-k-----------------------}
writeln('vi tri cua ',k,' trong day la: ');
dvt:=0;
for i:=1 to 15 do
if a[i]=k then
begin
inc(dvt);
vt[dvt]:=i;
end;
for j:=1 to dvt do
write(vt[j]:4);
readln;
end.