4. program bai_4;

ues crt;

var

s,n,i:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

if i (mod 2=0) then s:=s+1;

write('tong la:',s:7);

readln;

end.

5.program bai_5;

uses crt;

var

i,s,n:integer;

begin

clrscr;

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

s:=0;

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

writer('tong la:',s);

readln;

end.

8.program bai_8;

uses crt;

var

A:=array[1..100]of integer;

i,n,max: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 write(A[i],' ');

max:=a[1];

for i:= 1 to n do

if a[i] mod> max then:=a[i];

write('gia tri lon nhat trong mang la:',max);

readln;

end.

1. Mục đích của việc tạo biểu đồ giúp

Nêu các bước cụ thể để tạo biểu đồ từ 1 bảng dữ liệu

2. nêu các bước để thay đổi biểu đồ

3. các công thức tính điểm tổng cộng, điểm trung bình, giá trị lớp nhất, nhỏ nhất

ban nhac lai cau hoi a?

ồ

@phynit

Có

có đó em ạ

var <tên biến> : array [<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

Vd: var A : array : [1..100] of integer;

Có 2 cách khai báo mảng:

C1: Khai báo trực tiếp

VAR <Tên biến>:array[<chỉ số đầu>,<chỉ số cuối>] of <kiểu dữ liệu>;

VD:a:array[1..50] of string;

C2:Khai báo gián tiếp

Type <Tên biến>=array[<chỉ số đầu>,<chỉ số cuối>] of <kiểu dữ liệu>;

Var <Tên mảng>:<Tên biến>;

VD:

Type mang=[1..100] of integer;

Var A:mang;

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,t1,t2,t3,t4,x,t5;

//chuongtrinhcon

bool ktnt(long long n)

{

for (int i=2; i*i<=n; i++)

if (n%i==0) return false;

return true;

}

int main()

{

cin>>n;

t1=0;

t2=0;

t3=0;

t4=0;

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

{

if (i%2==0) t1+=i;

else t2+=i;

if ((ktnt(i)==true) and (i>1)) t3+=i;

}

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

{

x=int(sqrt(i));

if (x*x==i) t4+=i;

}

cin>>x;

t5=0;

for (i=1; i<=n; i++) if (x%i==0) t5=t5+i;

cout<<t1<<" "<<t2<<" "<<t3<<" "<<t4<<" "<<t5;

return 0;

}

c)

uses crt;

var i, n: integer;

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

begin

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

for i:=1 to n do

begin

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

end;

writeln(a[i]);

readln

end.

d)

uses crt;

var i, le, chan: integer;

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

begin

for i:=1 to 20 do

begin

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

end;

for i:=1 to 20 do

if a[i] mod 2 <> 0 then

writeln((a[i]) ,' la so le');

for i:=1 to 20 do

if a[i] mod 2 = 0 then

writeln((a[i]) ,' la so chan');

readln

end.

b)

uses crt;

var n,i:word;

T:longint;

begin

clrscr;

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

T:=1;

for i:=2 to n do T:=T*(1+i);

write('T = ',T);

readln;

end.

- Bôi đen các phần tử của mảng chọn biểu tượng

-Chọn ô tiêu đè có chứa dữ liệu

- Chọn Data - Filter - Auto Filter, chọn mũi tên cạnh ô tiêu đề chứa dữ liệu cần lọc

program mang_2_chieu;

uses crt;

var m,n,i,j,t,k:word;

max,max2:longint;

a:array[1..100,1..100] of longint;

begin

clrscr;

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

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

writeln('nhap mang A:');

for i:=1 to m do

for j:=1 to n do

begin

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

end;

writeln('mang da nhap :');

for i:=1 to m do

begin

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

writeln;

end;

for i:=1 to m do

begin

for j:=1 to n-1 do

for t:=j+1 to n do

if(a[i,j]>a[i,t]) then

begin

k:=a[i,j];

a[i,j]:=a[i,t];

a[i,t]:=k;

end;

end;

writeln('mang da sap xep cac phan tu theo thu tu tang dan cua moi hang la:');

for i:=1 to m do

begin

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

writeln;

end;

max:=a[1,1]; max2:=a[1,1];

for i:=1 to m do

for j:=1 to n do

if a[i,j]>max then max:=a[i,j];

for i:=1 to m do

for j:=1 to n do

if (a[i,j]<max) and (a[i,j]>max2) then max2:=a[i,j];

writeln('so lon nhat la:',max);

write('so lon nhi la:',max2);

readln;

end.