Viết chương trình:
Mảng A: 100 phần tử
Mảng B: 100 phần tử
Mảng C:=A+B;
Viết chương trình: Mảng A: 100 phần tử Mảng B: 100 phần tử Mảng C:=A+B;
By Julia
By Julia
Viết chương trình:
Mảng A: 100 phần tử
Mảng B: 100 phần tử
Mảng C:=A+B;
var a,b,c:array [1..100] of real;
i:byte;
begin
write(‘nhap mang a,b’);
for i:=1 to 100 do read(a[i]);
for i:=1 to 100 do read(b[i]);
for i:=1 to 100 do begin c[i]:=b[i]+a[i]; write(c[i],’ ‘);
readln; end.
*Theo đề của đề
program mang_C;
uses crt;
var A,B,C:array[1..100] of integer;
i:integer;
begin
clrscr;
for i:=1 to 100 do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
end;
for i:=1 to 100 do
begin
write(‘B[‘,i,’]= ‘); readln(B[i]);
C[i]:=A[i]+B[i];
end;
for i:=1 to 100 do
write(C[i],’ ‘);
readln;
end.
*Theo đề của tui
program mang_C;
uses crt;
var A,B,C:array[1..100] of integer;
n,i:byte;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘); readln(A[i]);
end;
for i:=1 to n do
begin
write(‘B[‘,i,’]= ‘); readln(A[i]);
end;
write(‘A: ‘);
for i:=1 to n do
write(A[i]:4);
writeln;
write(‘B: ‘);
for i:=1 to n do
write(B[i]:4);
writeln;
write(‘C: ‘);
for i:=1 to n do
begin
C[i]:=A+[i]+B[i];
write(C[i]:4);
end;
readln;
end.