K
Khách

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.

Câu 1: 

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

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 

  t:=t+a[i];

writeln(t);

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,x,dem,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap x='); readln(x);

kt:=0;

dem:=0;

for i:=1 to n do 

if a[i]=x then 

begin

kt:=1;

write(i:4);

inc(dem);

end;

if kt=0 then writeln('Khong co ',x,' trong day');

writeln(x,' xuat hien ',dem,' lan trong day');

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,min,tam,j:integer;

begin

clrscr;

n:=100;

for i:=1 to 100 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do

if min>a[i] then min:=a[i];

writeln('Gia tri nho nhat la: ',min);

for i:=1 to n-1 do 

  for j:=i+1 to n 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 n do 

  write(a[i]:4);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,max,tam,j:integer;

begin

clrscr;

n:=100;

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do  

if max<a[i] then max:=a[i];

writeln('Gia tri lon nhat la: ',max);

for i:=1 to n-1 do 

  for j:=i+1 to n do

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day so giam dan la: ');

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

15 tháng 4 2022

program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
        clrscr;
        for i:=1 to 10 do begin
         write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
        write('Day so vua nhap la: ');
        for i:=1 to 10 do write(a[i],', ');
        writeln;
        s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
        for i:=1 to 10 do begin
         s := s + a[i];
         if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
         if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
         if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
         else begin sl := sl + a[i]; dl := dl + 1 end;
        end;
        writeln('Tong cac phan tu trong mang la ',s);
        writeln('Trung binh cong cac phan tu trong mang la ',s/10);
        writeln('Tong cac so am la ',sa);
        writeln('Tong cac so duong la ',sd);
        writeln('Tong cac so chan la ',sc);
        writeln('Tong cac so le la ',sl);
        writeln('So cac so am la ', da);
        writeln('So cac so duong la ', dd);
        writeln('So cac so chan la ', dc);
        writeln('So cac so le la ', dl);
        readln
end.

25 tháng 4 2023

Var a:array[1..1000] of integer;

i,m,tam:integer;

Begin

Write('m = ');readln(m);

For i:=1 to m do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to m do

If a[i] < a[i+1] then

Begin

tam:=a[i];

a[i]:=a[i+1];

a[i+1]:=tam;

End;

Write('Mang sau khi sap xep: ');

For i:=1 to m do

Write(a[i]:8);

Readln;

End.

13 tháng 5 2022

tham khảo:

uses crt;

var n,i:integer;

a:array[1..100] of integer;

begin

clrscr;

write(‘nhap so phan tu cua day:’);readln(n);

for i:=1 to n do

begin

write(‘a[‘,i,’]=’);readln(a[i]);

end;

writeln(‘day so da nhap:’);

for i:=1 to n do write(a[i]:2);

readln;

end.

13 tháng 5 2022

tham khảo

uses crt;

var n,i:integer;

a:array[1..100] of integer;

begin

clrscr;

write(‘nhap so phan tu cua day:’);readln(n);

for i:=1 to n do

begin

write(‘a[‘,i,’]=’);readln(a[i]);

end;

writeln(‘day so da nhap:’);

for i:=1 to n do write(a[i]:2);

readln;

end.

uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a*b);

if (a>0) then writeln('a la so nguyen duong')

else writeln('a la so nguyen am');

readln;

end.

Bài 1: 

uses crt;

var a:array[1..100]of integer;

i,n,tam,j: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-1 do

for j:=i+1 to n do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

19 tháng 3 2021

Làm giúp em câu 2 với ạ