C1:

var a:arra[1..50] of string;

C2.

Uses crt;
Var i,n,s:integer;
Begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do s:=s+i;
write('tong cac so ti nhien tu 1 den n la:',s);
readln;
end.

C3.

Uses crt;
Var i,n,s,max:integer;
a:array[1..100] of integer;
Begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] mod 3=0 then s:=s+a[i];
end;
max:=a[1];
for i:=1 to n do
 if max< a[i] then max:=a[i];
writeln('ptu lon nhat la:',max);
writeln('tong cac ptu chia het cho 3 la:',s);
readln;
end.

(mong dc 5*+hay nhất)

Câu 1: Var A: array [1 .. 50] of String;

Câu 2:

Program Bai_2;

Uses crt;

Var i,n,S : Integer;

Begin

clrscr;

Write('Nhap so n = '); Read(n);

S := 0;

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

Writeln('Vay tong tu 1 den n la ',S);

Readln;

End.

Câu 3:

Program Bai_3;

Uses crt;

Var max, i,n,S : Integer;  

      A: array [1 .. 1000] of Integer;

Begin

clrscr;

Write('Nhap so n = '); Read(n);

For i := 1 to n do 

begin

Writeln('A[',i,'] = '); Read(A[i]); end;

max := A[i];

For i := 1 to n do if A[i] > max then max := A[i];

Writeln('Vay so lon nhat la ',max);

For i := 1 to n do if A[i] mod 3 = 0 then S := S + A[i];

Writeln('Vay tong cac so chia het cho 3 trong mang la ',S);

Readln;

End.

Xin ctlhn ạ!

CHÚC BẠN HỌC TỐT