Bài 9. Làm việc với dãy số

Có nghĩa là nó là một vật thể chưa xác định ABC XYZ gì đó

Do you want to become a hacker?

1/ Var i,n,sla,sld:integer;

begin

readln(n);

sla:=0; sld:=0;

for i:=1 to n do

if i < 0 then sla:=sl+1;

writeln('so am', sl);

if i > 0 then sld:=sld+1;

writeln(sld);

readln;

end.

2/ Var i,n,sl:integer;

begin

readln(n); sl:=0;

for i := 1 to n do

if i mod 2 <> 0 then sl:=sl+1;

writeln('so le', sl);

readln;

end.

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 i, n:integer;

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

begin

clrscr;

write (' nhap n: '); readln(n);

for i:=1 to n do

begin

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

end;

readln

end.

uses crt;

var i, n:integer;

a: array [1..100] of 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

writeln(a[i]);

readln

end.

Type mang=array [1..10] of integer;

var a:mang; i,n:integer;

begin

readln(n); for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n do

writeln(a[i]);

readln;

end.

uses crt;

var n,i:integer;

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

begin

clrscr;

write('nhap dp dai cua day:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('tat ca cac so trong day la:');

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

readln;

end.

dp-->do

program ctdt;
uses crt;
var s1,s2:string;
dem,i,j:integer;
(*--------------------*)
BEGIN
clrscr;
write('nhap ptu1: ');readln(s1);
write('nhap ptu2: ');readln(s2);

{cach1:
dem:=0;
while i<=length(s1) do
begin
while j<=length(s2) do
if s1[i]=s2[j] then
begin
dem:=dem+1;
break;
end
else j:=j+1;
i:=i+1;
end;}

{cach 2}
dem:=0;
for i:=1 to length(s1) do
begin
for j:=1 to length(s2) do
if s1[i]=s2[j] then
begin
dem:=dem+1;
end;
end;

if dem=length(s1) then
write('hai ptu ,'s1,' , ',s2,' bao gom ki tu cua nhau')
else write('hai ptu ,'s1,' , ',s2,' khong bao gom ki tu cua nhau');
readln
end.

Bạn thử xem đúng ko nha.

______________

uses crt;
var n,i,scs,tong:integer;
A:array[1..100] of integer;
f:text;
begin
clrscr;
Write('Nhap N: '); readln(n);
for i:=1 to n do
begin
Write('A[',i,']: '); readln(A[i]);
if (a[i] mod 2=0) then
begin
scs:=scs+1;
tong:=tong+A[i];
end;
end;
Writeln('Day tren co ',scs, ' phan tu chan.');
Writeln('Tong so phan tu chan co trong day la: ',tong);
readln;
end.

uses crt;

var n,i,min: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('nhap a[',i,']:');readln(a[i]);

end;

min:=a[1];

for i:=1 to n do

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

write('gia tri nho nhat cua day so la:',min);

readln;

end.

sửa lại chổ này nhe bạn:

min:=a[1];

for i:=2 to n do

giup em tra lời câu hỏi nầy em đang cần gap ạ.......

Câu 4:

Program Tinh_tong;

Uses crt;

var i,n:integer;

s:longint;

Begin

clrscr;

Write('Nhap so n:'); Readln(n);

s:=0;

For i:=1 to n do s:=s+i;

Writeln('Tong cac so la:',S);

Readln

End.

Câu 11: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,ln;

int main()

{

cin>>n;

ln=LLONG_MIN;

for (i=1; i<=n; i++)

{

cin>>x;

ln=max(ln,x);

}

cout<<ln;

return 0;

}

Sử dụng biến mảng để giảm bài trên nha

program Tinh_tong;

uses crt;

var n,i,T: integer;

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

begin

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

T:=0;

for i:=1 to n do

begin

readln(a[i]);

if i mod 2 <>0 then T:=T+a[i];

end;

writeln('tong cac so le la ',T);

end.